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ABSTRACT 


A  thermal  design  procedure  for  air  cooled  electronic 
circuit  boards  has  been  developed  for  the  Hewlett-Packard 
Model  9845  desktop  computer.  The  system  of  interactive 
programs,  called  THERMELEX,  performs  thermal  analysis  of 
printed  circuit  boards  to  predict  either  the  junction  tem¬ 
peratures  for  given  power  dissipation  levels  or  the  maximum 
power  levels  for  given  junction  temperature  limits.  The 
system  includes  the  following  features:  totally  interactive 
with  all  input  in  question  and  answer  format,  simple  data 
verification  and  correction  capabilities,  ability  to  store 
and  retrieve  circuit  board  descriptive  data  totally  under 
program  control,  wide  variety  of  output  formats  including 
tabular  and  graphical.  By  using  internal  selection  of  heat 
transfer  correlations,  the  THERMELEX  system  depends  only  on 
input  of  physical  parameters  for  thermal  predictions. 
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NONMENCLATURE 


Aair  Average  area  for  cooling  air  flow 

Agap  Area  of  bottom  of  component 

R1  Area  for  conduction  in  either  a  CPU 
or  a  circuit  board  lead 

Apara  Area  of  the  component  experiencing 
parallel  flow 

Areg  Area  of  the  region  on  the  circuit 
board 

Aspin  Surface  area  of  the  component  lead 

Astag  Area  of  the  component  experiencing 
stagnation  flow 

Axpin  Crossectional  area  of  the  component 
lead 

Bdh  Height  of  circuit  board  (perpen¬ 
dicular  to  air  flow) 

Bdl  Length  of  circuit  board  (parallel 

to  air  flow) 

Cpair  Heat  capacity  of  the  air 

CPU  Conduction  Path  Unit  (size 

defined  by  user) 

Dgap  Distance  between  the  component 
bottom  and  the  circuit  board 

Dh  Hydraulic  diameter 

DIP  Dual  Inline  Package 

Epsb  Emissivity  of  the  circuit  board 

Epse  Emissivity  of  the  component 

Fair  Volumetric  air  flow  rate 


[m2] 

[m2] 

[m2] 

[m2] 

[m2] 

[m2] 

[m2] 

[m2] 

[m2] 

[m2] 

[J/Kg-degK] 


[m2] 

[m2] 


[m3/sec] 
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Fr 

Roughness  factor 

Gnu 

Kinematic  viscosity  of  air 

[m2/sec] 

Gz 

Graetz  number 

Havg 

Average  height  of  the  components 
present  on  the  board 

[m] 

Hb 

Heat  transfer  coefficient  for  the 
circuit  board 

[Watt/m2 -degK] 

Hduct 

Heat  transfer  coefficient  for  the 
duct  formed  by  the  circuit  boards 
and  equipment  case 

[ Watt/m2 -degK] 

He 

Height  of  the  component 

[m  ] 

Hpara 

Heat  transfer  coefficient  for  areas 
receiving  parallel  air  flow 

[Watt/m2-degK] 

Hr 

Dimension  of  region  in  the  vertical 
direction  or  vertical  distance  between 
finite  difference  nodes  [m  ] 

Hstag 

Heat  transfer  coefficient  for  areas 
receiving  stagnation  air  flow 

[ Watt/m2 -degK] 

Kair 

Thermal  conductivity  of  cooling  air 

[Watt/m-degK] 

Kb 

Thermal  conductivity  of  the  circuit 
board 

[Watt/m-degK] 

K1 

Thermal  conductivity  of  the  board 
leads 

[Watt/m-degK] 

Kpin 

Thermal  conductivity  of  the  compo¬ 
nent  lead 

[Watt/m-degK] 

Le 

Length  of  the  component 

[m  ] 

Lpin 

Length  of  component  lead 

[m  ] 

Lr 

Dimension  of  region  in  the  hori¬ 
zontal  direction  or  horizontal 
distance  between  nodes 

[m  ] 

Mair 

Mass  flow  rate  of  cooling  air 

[Kg/sec] 

Navg 

Average  number  of  component  in  a 
vertical  column  perpendicular  to 
the  air  flow  direction 
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Npin  Number  of  leads  on  a  component 


Nxr  Number  of  regions  in  the  air  flow 
of  horizontal  direction 

Nyr  Number  of  regions  perpendicular  to 
the  air  flow  direction  or  vertical 
direction 

Perim  Wetted  perimeter  of  the  air  duct 

Pow  Energy  dissipated  in  the  component 

Pr  Prandtl  number 

Q  Rate  of  heat  transfer 

Oe-b  Total  rate  of  heat  transfer  from 

the  component  to  the  circuit  board 

Total  rate  of  heat  transfer  out  the 
bottom  of  a  circuit  board  region 

Q2  Total  rate  of  heat  transfer  out  the 
right  side  of  a  circuit  board  region 

Q,  Total  rate  of  heat  transfer  out  the 

top  of  a  circuit  board  region 

Q4  Total  rate  of  heat  transfer  out  the 

left  side  of  a  circuit  board  region 

R  Thermal  resistance  for  heat 

transfer 

Re  Reynolds  number 

Rb-  Total  thermal  resistance  for  convec- 
con  tion  from  circuit  board  surface  to 
the  cooling  air  flow 

Rb-hor  Thermal  resistance  for  conduction 
in  the  circuit  board  between  nodes 
in  the  horizontal  direction 

Rb-ver  Thermal  resistance  for  conduction 
in  the  circuit  board  between  nodes 
in  the  vertical  direction 

Re-  Total  thermal  resistance  for  con- 

conv  vection  from  component  surface  to 
the  cooling  air  flow 


[m  ] 

[Watts] 

[Watts] 

[Watts] 

[Watts] 

[Watts] 

[Watts] 

[Watts] 

[deg  K/Watt] 

[degK/Watt] 

[degK/Watt] 

[degK/Watt] 

[degK/Watt] 
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Rgap- 

cond 

Rgap- 

rad 

R1 

Rpara 

Rstag 

Rtop-r 

Rtote- 

b 

Tair 

Te 

Tb 

Thb 

Tj 

Vair 

Wavg 

We 

X 


Conductive  thermal  resistance  for 
the  air  gap  between  the  component 
bottom  and  the  circuit  board 

Effective  thermal  resistance  for 
radiation  from  the  component  bottom 
to  the  circuit  board 

Total  conductive  resistance  between 
finite  difference  nodes  (centers  of 
region) 

Thermal  resistance  for  heat  transfer 
from  area  receiving  parallel  air 
flow 

Thermal  resistance  for  heat  transfer 
from  area  receiving  stagnation  air 
flow 

Effective  thermal  resistance  for 
radiation  from  the  top  of  the 
component  to  next  board 

Total  thermal  resistance  between 
the  component  bottom  and  the 
circuit  board 

Local  air  temperature 

Temperature  of  the  component  surface 

Temperature  of  the  board  surface 

Thickness  of  the  circuit  board 

Temperature  of  the  component 
junction 

Velocity  of  the  cooling  air 

Average  width  of  the  components 
present  on  the  board 

Width  of  the  individual  components 

Direction  parallel  to  cooling  air 
flow  also  referred  to  as  the  hori¬ 
zontal  direction  due  to  orientation 
of  circuit  board  picture  on  screen 
of  computer 


[degK/Watt] 

[degK/Watt ] 

[degK/Watt] 

[degK/Watt] 

[degK/Watt] 

[degK/Watt] 

[degK/Watt] 
[degC,  degK] 
[degC,  degK] 
[degC,  degK] 
[m  ] 

[degC,  degK] 
[m/sec] 

[m] 

[m  ] 
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Distance  from  the  entrance  of  the 
cooling  air 

Direction  perpendicular  to  cooling 
air  flow  also  referred  to  as  the 
vertical  direction  due  to  orienta¬ 
tion  of  circuit  board  picture  on 
screen  of  computer 

Distance  between  circuit  boards 


I .  INTRODUCTION 


A.  BACKGROUND 

Electronic  components  generally  convert  a  significant 
fraction  of  the  input  power  into  internal  joulian  heating. 

When  the  components  are  large,  widely  separated,  and  air  is 
permitted  to  circulate  freely  among  them,  this  heat  generated 
within  the  component  is  transferred  to  the  environment  through 
natural  convection.  Indeed,  millions  of  pieces  of  home  elec¬ 
tronic  equipment  have  operated  reliably  for  years  depending 
only  on  natural  circulation  for  cooling.  The  major  emphasis 
over  the  last  15  years  has  been  a  continuing  effort  toward 
a  reduction  in  physical  size  of  components  and  increased 
component  density  within  electronic  equipment.  The  military 
is  particularly  in  need  of  smaller,  more  complex,  yet  relia¬ 
ble  equipment  that  must  often  be  sealed  from  an  extremely 
hostile  environment.  This  results  in  the  need  for  more 
efficient  cooling  methods. 

The  age  of  large  scale  integration  (LSI)  is  here. 

Although  the  power  dissipated  in  each  active  junction  within 
a  component  has  greatly  decreased,  the  large  number  of  heat 
sources  on  each  chip  has  created  serious  heat  removal 
problems.  There  is  a  genuine  need  for  electronic  designers 
to  not  only  be  aware  of  the  problems  associated  with  higher 
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temperatures,  but  they  must  also  be  prepared  to  solve  those 
problems.  References  [1]  through  [10]  are  a  sampling  of 
the  many  sources  that  indicate  the  increased  emphasis  on 
cooling  problems  throughout  the  electronics  community. 

The  need  to  operate  electronic  equipment  with  maximum 
junction  temperatures  below  those  levels  that  result  in 
failure  is  well  recognized,  but  even  moderately  high  temper¬ 
atures  in  electronic  components  result  in  progressive 
deterioration  and  reduced  reliability.  A  generally  accepted 
thumb  rule  is:  for  every  10  deg  C  increase  in  junction 
temperature,  the  lifetime  of  a  component  will  decrease  by 
one-half.  [3,  7]  The  increasing  costs  associated  with  each 
failure  make  it  imperative  to  address  reliability  during 
the  equipment  design  phase  and  to  provide  sufficient  cooling 
to  maintain  temperatures  as  low  as  practical. 

There  are  many  methods  of  removing  the  heat  dissipated 
within  electronic  components.  These  methods  include  the 
natural  air  convection  previously  mentioned,  thermo-electric 
devices,  heat  pipes,  cold  plates  and  even  complex  refrigera¬ 
tion  systems  which  use  pumped  liquid  coolants  [8].  The 
complex  systems  required  for  these  solutions  can  lead 
to  lower  reliability  through  increased  probability  of 
failures  in  the  cooling  system.  While  many  of  these  methods 
can  allow  extremely  high  power  densities  for  specific  appli¬ 
cations,  the  most  widely  used  method  for  cooling  of  components 
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mounted  on  printed  circuit  boards  is  forced  air  cooling. 

Air  is  readily  available,  abundant,  non-corrosive,  non-toxic, 
non-flammable,  dielectric,  and  is  easily  pumped  using  readily 
available  fans  and  blowers.  For  those  situations  where  there 
is  a  need  to  seal  the  equipment,  interior  cooling  air  is  often 
circulated  through  heat  exchangers. 

All  too  often  the  problem  of  cooling  the  electronic  com¬ 
ponents  is  attacked  after  the  circuit  boards  have  been  designed 
or  even  produced  and  assembled  [9].  In  some  cases,  the  need 
for  increased  cooling  is  recognized  only  after  repeated 
failures  in  service  have  resulted  in  unhappy  users  and  ex¬ 
cessive  repair  costs.  At  best  both  the  electronic  design  and 
the  thermal  design  progress  concurrently  but  are  worked  on  by 
separate  design  groups.  These  groups  may  have  conflicting 
range  goals  that  can  interfere  with  the  important  long  range 
goal  of  reliability. 

Many  of  the  efforts  to  directly  involve  the  electrical 
designer  in  the  thermal  problems  are  directed  towards  overall 
system  cooling.  Reference  [11]  details  a  thermal  design 
program  called  VENTBOX.  VENTBOX  treats  a  cabinet  enclosure 
with  entire  circuit  boards  modeled  as  distributed  heat 
sources.  This  program  fails  to  address  the  problems  of  in¬ 
dividual  components  and,  therefore,  is  unable  to  analyze 
the  circuit  board. 

Electronic  circuit  analysis  programs  are  often  utilized 
in  the  thermal  analysis  of  circuit  boards  [12  and  13].  This 


technique  requires  the  development  of  an  equivalent  thermal 
circuit,  usually  by  a  packaging  engineer,  and  thus  the  thermal 
design  is  removed  from  the  hands  of  the  electronic  designer. 
Reference  [14]  details  a  thermal  analysis  program  for  circuit 
boards  that  is  much  more  accessible  to  an  electronic  designer 
since  the  inputs  are  physical  dimensions  and  types  of  compo¬ 
nents  rather  than  equivalent  thermal  network  parameters. 

All  these  programs  share  a  major  weakness  in  that  they 
depend  on  a  large  general  purpose  computer  facility.  This 
not  only  can  result  in  excessively  long  turn-around  times 
in  batch  processing,  but  also  the  expense  of  computer  time 
may  become  a  factor.  In  addition,  the  input  data  typically 
consists  of  long  lists  of  numbers  th^t  must  be  in  the  proper 
format  with  the  correct  option  selection  codes.  Likewise 
the  output  also  consists  of  even  longer  lists  of  numbers 
with  the  key  information  hidden  in  their  midst. 

One  solution  to  automated  thermal  design  and  analysis 
of  avionics  systems  is  being  developed  as  a  joint  project 
by  the  Air  Force  Flight  Dynamics  Laboratory  at  Wright 
Patterson  Air  Force  Base  and  Boeing  Aerospace  Company.  The 
ITAD  (Integrated  Thermal  Avionics  Design)  system  is  expected 
to  include  many  existing  analysis  programs  and  a  large  ever 
growing  data  base  containing  reliability  parameters.  It 
is  anticipated  that  ITAD  will  be  accessed  by  user  through 
both  batch  methods  and  interactively  through  color  graphics 
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terminals.  The  scope  of  this  project  is  enormous  and  the 
benefits  to  the  system  designer  will  be  many,  provided  he 
has  access  to  the  large  computer  at  Wright  Patterson  Air 
Force  Base  [15,  16]. 

Another  solution  on  a  much  smaller  scale  is  to  create 
a  program  for  a  compact,  stand  alone  desktop  computer  that 
is  easily  accessible  to  the  designer  of  electronic  circuit 
boards.  Such  a  system,  if  interactive  and  "friendly"  to 
the  casual  user,  would  allow  rapid  evaluation  of  various 
circuit  board  designs  at  the  conceptual  level.  Rejection 
of  those  designs  with  poor  thermal  characteristics  could 
then  occur  before  they  leave  the  drafting  table  saving  both 
future  efforts  and  dollars. 

B.  OBJECTIVES 

The  main  objective  of  this  thesis  was  to  develop  an 
interactive  thermal  analysis  program  utilizing  the  Hewlett- 
Packard  9845  desktop  computer.  It  was  considered  important 
to  include  the  following  features: 

1.  Simplicity  of  operation:  All  data  input  and  control 
of  program  flow  are  done  in  a  question  and  answer  format  in¬ 
cluding  specific  instructions  with  each  question. 

2.  Graphical  data  checking:  Display  circuit  board 
replicas  on  the  screen  both  for  verification  of  input  and 
to  provide  a  more  useful  form  of  output. 


3.  Data  correction  capabilities:  Use  interactive  methods 


to  allow  correction  of  portions  of  the  data  without  the  need 
to  repeat  all  the  input. 

4.  Automatic  storage  and  retrival  of  data:  Circuit  board 
descriptions  should  be  written  to  and  read  from  mass  storage 
devices  using  simple  questions  and  answers  rather  than  requir¬ 
ing  specific  knowledge  of  operations  of  the  devices. 

5.  Analysis  methods  hidden:  Various  empirical  heat 
transfer  correlations  should  be  used  based  on  the  physical 
descriptions  and  the  user  should  be  relieved  of  the  need  to 
make  decisions  concerning  the  details  of  the  heat  transfer 
analysis  methods. 

6.  Sensitivity  analysis:  Allow  automatic  parameter 
changes  to  investigate  the  effects  on  the  thermal  performance 
of  these  changes  with  plotted  data. 
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II.  DESCRIPTION  OF  THE  THERMELEX  SYSTEM 


A.  GENERAL 

1 .  The  Computer 

The  name  THERMELEX  will  be  used  to  refer  to  the 
system  of  interactive  programs  created  to  perform  thermal 
analysis  of  air  cooled  electronic  circuit  boards.  The 
programs  are  written  for  the  Hewlett-Packard  Model  9845 
desktop  computer  using  the  Hewlett-Packard  extended  version 
of  the  basic  language.  A  sophisticated  operating  system 
hides  the  complexity  of  the  9845  from  the  user  and  provides 
protection  from  his  mistakes  yet  provides  the  power  and 
flexibility  needed  for  application  programs  such  as  the 
THERMELEX  system. 

The  computer  used  to  create  and  debug  THERMELEX  is 
the  9845A  with  64  k  bytes  of  read/write  memory  (option  203) , 
internal  printer  (option  500)  and  graphics  package.  In 
addition,  dual  tape  drives  and  dual  floppy  disks  were  utilized 
in  the  development  of  the  system.  These  additional  mass 
storage  devices  provided  considerable  increase  in  the  con¬ 
venience  and  speed  of  storage  and  retrieval  operations  but 
THERMELEX  is  designed  to  operate  with  only  the  standard  tape 
drive.  Recent  advances  in  the  internal  electronics  have 
resulted  in  this  model  being  superseded  by  the  9845B  model 
with  larger  memory  capabilities  and  several  other  features. 
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THERMELEX  is  available  in  either  an  A-version  or  B-version 
for  use  in  the  respective  model  of  the  9845. 

Figure  1  shows  the  9845A  but  the  9845B  is  identical 
in  physical  appearance  except  for  the  name  tag.  The  screen 
at  the  top  will  display  the  messages  from  the  system  to  the 
user,  what  is  typed  by  the  user  and  the  output  from  the 
THERMELEX  programs.  This  output  may  be  printed  on  the  screen 
in  what  is  known  as  the  alpha  mode  or  it  may  be  presented  as 
pictures  and  words  from  the  graphics  mode.  Output  of  either 
mode  may  also  be  produced  on  the  thermal  printer  above  the 
keyboard  in  the  inclined  area.  Directly  underneath  the 
screen  there  are  four  pull-out  reference  cards  that  explain 
error  messages  and  other  operating  conditions  that  may  occur. 
At  the  extreme  upper  right  corner  of  the  sloping  section  is 
the  standard  tape  transport  (:T15)  for  mass  storage  of 
programs  and  data. 

The  keyboard  contains  not  only  a  set  of  standard 
typewriter  keys  but  also  several  other  groups  of  keys  that 
are  important  to  THERMELEX.  The  numeric  keys  at  the  lower 
right  allow  easy  entry  of  numbers  as  an  alternative  to 
those  in  the  alphanumeric  group  of  keys  and  allows  numeric 
calculations  to  be  performed  even  during  execution.  Between 
these  groups  are  the  gold  colored  program  control  keys.  All 
responses  to  questions  are  followed  by  pressing  the  CONT  key 
at  the  bottom  of  this  column  of  keys.  The  group  of  special 
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function  keys  in  the  upper  right  are  defineable  by  the  user 
or  from  program  control.  They  are  also  used  in  THERMELEX 
as  priority  interrupts  to  simplify  the  input  of  data.  This 
use  of  these  keys  is  further  explained  later.  The  final  key 
of  interest  to  the  THERMELEX  system  user  is  the  AUTO ST  key 
in  the  lower  right  corner  of  the  EDIT/SYSTEM  FUNCTIONS  group. 
This  key  allows  automatic  loading  and  execution  of  the  first 
program  in  the  THERMELEX  system.  Explanation  for  its  use 
is  found  in  Appendix  1,  the  User  Instructions.  For  further 
explanations  of  the  features  of  the  Hewlett-Packard  model 
9845  computer,  see  Ref  [17]  supplied  with  the  computer. 

2.  THERMELEX  System 

Due  to  the  memory  limitations  of  the  9845A,  THERMELEX 
is  divided  into  three  major  programs  which  are  generally 

brought  irito  case  from  mass  storage  under  program  control  as 

* 

they  are  needed.  However,  each  program  is  designed  to  stand 
alone  which  can  allow  the  experienced  user  to  bypass  some  of 
the  questions  and  answers  required  to  help  the  inexperienced 
users.  AUTQST  is  the  first  program  of  the  three;  here  several 
pages  of  user  instructions  (see  Appendix  1)  may  be  printed, 
the  special  function  keys  are  defined  and  the  user  is  directed 
along  a  path  to  follow  towards  the  other  programs.  In  BOARDS , 
the  circuit  board  descriptive  data  is  entered,  verified  and 
stored  on  any  one  of  the  mass  storage  devices.  The  user  may 
also  elect  to  produce  a  printed  copy  of  the  input  data  for 
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his  records.  The  THERML  program  performs  the  thermal  analy¬ 
sis  and  provides  output  in  various  tabular  or  graphical  forms. 
These  three  major  programs  will  be  described  in  more  detail 
in  the  pages  that  follow. 

There  are  also  several  smaller  files  in  the  system. 
BDSKEY  and  STDKEY  alter  the  definitions  of  the  special 
function  keys.  TNAMES  contains  a  listing  of  all  variable 
names  and  program  section  names  with  explanations  to  aid  in 
any  future  modifications  of  the  THERMELEX  system.  DEMO-P 
and  DEMO-T  are  data  files  containing  example  circuit  board 
descriptive  data  to  allow  demonstrations  of  the  system  and 
to  help  the  new  user  become  familiar  with  the  capabilities. 

B.  AUTOST 

1.  General 

AUTOST  is  the  driver  program  for  the  system.  This 
name  allows  the  program  to  be  automatically  loaded  and  exe¬ 
cuted  if  the  AUTOST  key  is  latched  down  and  if  the  tape 
containing  the  THERMELEX  system  is  in  the  standard  right- 
hand  tape  drive  (:T15)  when  the  main  power  switch  is  turned 
on.  Regardless  of  how  the  program  is  loaded,  the  first 
question  will  be  concerning  the  location  of  THERMELEX.  The 
program  will  ask  which  mass  storage  device  contains  the 
system  since  this  is  necessary  for  correct  program  control. 

At  this  point,  the  program  defines  the  default  mass  storage 
device  using  the  "MASS  STORAGE  IS  " - "  command,  and  the 
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default  mass  storage  device  should  not  be  altered  while  using 
THERMELEX. 

2 .  Instructions 

AUTOST  will  provide  a  printed  set  of  user  instruc¬ 
tions  either  on  the  screen  in  short  segments  or  on  the  thermal 
printer  in  8.5  by  11  inch  pages.  These  instructions  present 
an  overall  system  view  and  are  intended  to  familiarize  the  in¬ 
experienced  user  and  supplement  the  extensive  instructions 
and  prompts  that  are  presented  on  the  screen  in  all  sections 
Of  THERMELEX. 

3 .  Special  Function  Keys 

AUTOST  redefines  the  special  function  keys  as  required 
for  the  system  and  can  provide  a  paper  key-code  overlay  as  a 
substitute  for  the  plastic  model  (Hp  Part  #7120-6164) .  Figure 
3  shows  both  styles.  The  paper  style  may  be  used  as  a  guide 
for  filling  in  the  appropriate  blanks  on  the  plastic  version. 

4.  Option  List 

Finally,  AUTOST  provides  a  list  of  options  for  the 
user  to  select  from.  He  may  load  either  of  the  other  two 
programs  in  THERMELEX  or  produce  a  complete  copy  of  the 
programs  in  the  system  through  selection  of  the  appropriate 
number  from  the  menu  of  options.  This  technique  is  employed 
throughout  the  system  whenever  possible  because  of  the  sim¬ 
plicity  involved  in  entering  a  single  number  over  other 
methods  of  option  selection. 
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5 .  The  Copy  Option 

The  copy  option  is  included  as  a  built-in  feature 
since  there  are  many  separate  files  in  THERMELEX  and  a 
separate  command  is  required  for  each  file  to  be  copied. 

Any  mass  storage  device  may  serve  as  the  destination  for 
the  system;  however,  when  copying  to  tape,  it  is  suggested 
that  it  be  blank  due  to  the  number  of  open  blocks  required. 
Following  completion  of  this  option,  program  control 
returns  to  option  list.  It  is  expected  that  the  first 
option  (keyboard  entry  of  circuit  board  description)  is  the 
most  likely  to  be  used  and  the  description  that  follows 
assumes  this  path. 

C .  BOARDS 

1.  General 

The  major  purpose  of  the  BOARDS  program  in  the 
THERMELEX  system  is  to  provide  a  simple  method  for  input 
of  the  descriptive  data  needed  in  THERML  for  the  creation 
of  the  thermal  model  and  the  analysis.  This  data  includes 
the  geometric  and  material  properties  of  the  circuit  board 
as  well  as  what  components  are  on  the  circuit  board.  These 
components  are  limited  to  Dip's  (Dual  Inline  Packages)  and 
chip  carriers  (FLAT  Packs) .  The  thermal  model  used  for  the 
analysis  of  the  board  is  a  finite  difference  scheme  and  the 
physical  location  of  the  components  is  approximated  by  the 
locations  of  the  finite  regions  created  by  the  user. 
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The  descriptive  data  may  be  entered  from  the  keyboard 
in  response  to  simple  questions;  or,  it  may  be  retrieved  from 
mass  storage  data  files  previously  recorded  using  BOARDS . 

The  instructions  included  as  Appendix  1  provide  specific 
explanations  of  how  to  use  this  program. 

2 .  Checking  of  Input  Data 

All  input  data  is  displayed  using  either  the  graphics 
capabilities  of  the  9845  or  with  printed  lists  produced  on 
the  screen  or  paper.  The  user  may,  therefore,  easily  verify 
the  validity  of  the  data  he  has  entered.  This  feature  is 
included  whenever  possible  throughout  THERMELEX. 

3 .  Correction  of  Input  Data 

There  are  many  opportunities  to  change  the  descriptive 
data  using  the  same  question  and  answer  format  of  interactive 
programming.  At  no  time  is  it  necessary  for  the  user  to  have 
extensive  knowledge  of  the  program's  internal  workings  or  the 
machine  level  commands  performed  within  the  program.  As  a 
further  means  of  correcting  past  errors,  the  backup  feature 
built  into  the  THERMELEX  system  makes  it  extremely  easy  to 
return  to  previous  questions.  This  feature  is  accessed  by 
depressing  the  special  function  key  (Ko)  in  place  of  a 
response  to  a  request  for  input.  Program  control  will  jump 
back  to  the  previous  question  to  allow  re-entry  of  data. 
Repeated  use  of  Ko  allows  backing  up  to  any  desired  point 
and  resumption  of  program  flow  from  that  point. 
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4 .  The  Circuit  Board 

To  describe  the  geometry  of  the  circuit  board  under 
investigation,  the  user  must  enter  the  length,  width,  thickness 
and  the  thermal  conductivity  of  the  circuit  board.  With  no 
input,  the  thermal  conductivity  will  be  assigned  a  default 
value  of  0.29  Watts/m-degC ,  a  representative  value  for  the 
bonded  glass  laminates  generally  used  for  construction  of 
circuit  boards.  The  length  parameter  is  defined  to  be  in  the 
direction  of  air  flow  regardless  of  which  dimension  is  the 
largest. 

In  order  to  create  the  finite  difference  thermal 
model,  the  board  must  be  divided  into  logical  regions  by 
placing  any  number  of  equally  spaced  vertical  lines  and  any 
number  of  equally  spaced  horizontal  lines  on  the  board  up  to 
a  total  of  50  regions.  More  regions  would  be  possible  in  the 
9845B  due  to  the  larger  memory  capacity  but  this  would 
require  some  program  changes.  Each  region  will  either  contain 
a  component  assumed  to  be  centered  in  the  region  or  will  be 
empty.  Since  there  may  be  regions  with  no  components,  there 
is  no  unique  set  of  descriptive  data  for  a  given  circuit 
board  design.  The  user  is  encouraged  to  try  different  com¬ 
binations  of  horizontal  or  x  regions  and  vertical  or  y 
regions  to  describe  a  circuit  board.  Figure  4  shows  two 
such  possibilities  for  a  board  with  six  14  pin  DIP'S.  Both 
the  six  region  model  and  the  42  region  model  describe  the 
same  board.  Experience  is  helpful  in  making  decisions  as 
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to  how  to  divide  the  board  and  some  boards  may  not  fit  into 
the  constraints  imposed  by  THERMELEX,  but  many  will. 

5 .  The  Components 

Each  of  the  defined  regions  will  be  empty  or  contain 
one  of  the  following  components:  14,  16,  24,  40  pin  DIP'S 
with  either  vertical  or  horizontal  orientation  and  16,  24, 

40,  64  pin  chip  carriers.  These  components  will  be  assured 
to  be  centered  in  the  region  (with  the  exception  of  the 
40  pin  DIP  which  will  be  assumed  to  occupy  two  regions) . 

The  input  of  component  type  for  each  region  is  via  the 
special  function  keys.  A  special  paper  key-code  overlay  for 
use  in  this  component  input  section  may  be  provided  if  a 
plastic  version  is  not  available,  see  Figure  5.  As  a 
flashing  cross  appears  in  each  of  the  regions,  the  appro¬ 
priate  special  function  key  is  depressed.  This  defines  the 
type  of  component,  length,  width,  orientation  and  draws  the 
component  on  the  screen  for  visual  verification  of  correc¬ 
tions.  After  all  regions  have  been  defined,  corrections 
are  possible  through  removal  and  replacement  of  components 
using  the  same  special  function  keys. 

6 .  Thermal  Conduction  Paths 

Each  of  the  defined  regions  on  the  board  may  exchange 
energy  with  the  adjacent  regions  via  conduction  through  the 
board  itself  and  any  thermally  conductive  material  added  to 
the  board  such  as  electrical  leads.  In  addition,  many  circuit 
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board  designs  involve  metal  conduction  rails  that  provide 
both  mechanical  support  and  a  method  to  transport  the  heat 
from  the  componets.  There  are  provisions  in  BOARDS  to  model 
either  the  electrical  leads  or  the  conduction  rails.  For 
circuit  boards  without  conduction  rails,  the  user  specifies 
the  average  lead  width  (mm) ,  thickness  and  thermal  conductivity 
of  the  lead  material.  These  geometric  parameters  are  used 
to  determine  the  thermal  resistance  of  a  single  lead  connect¬ 
ing  the  region  centers  or  nodes. 

When  conduction  rails  are  included  on  the  circuit 
board,  the  effects  of  the  electrical  leads  are  ignored.  To 
allow  modeling  of  rails  that  may  have  different  widths,  the 
concept  of  a  conduction  path  unit  (CPU)  is  introduced.  A 
CPU  is  defined  to  be  . 1  mm  in  width  but  the  user  specifies 
the  thickness  and  conductivity  of  the  material.  These  para¬ 
meters  are  used  to  determine  the  thermal  resistance  of  a 
single  CPU  connecting  the  region  centers. 

With  the  thermal  resistance  of  single  CPU  or  elec¬ 
trical  lead  determined,  the  user  need  only  specify  the  number 
of  such  resistances  that  connect  the  circuit  board  regions. 

For  example,  if  a  conduction  rail  is  5.8  mm  in  width,  it  may 
be  modeled  as  containing  58  CPUs.  While  the  concept  of 
CPUs  is  totally  artificial,  this  concept  does  allow  modeling 
of  the  Navy  Standard  Electronic  Module  (SEM)  and  Improved 
Standard  Electronic  Module  (ISEM)  for  those  situations  when 
these  modules  are  used  in  forced  air  cooled  systems. 


With  the  physical  description  of  the  circuit  board 
now  complete,  the  user  may  elect  to  produce  a  picture  of 
the  circuit  board  from  a  dump  of  the  graphics  to  the  internal 
printer.  Pressing  special  function  Key  3  will  produce  a 
picture  such  as  Figure  6.  This  picture  may  be  used  as  a 
final  verification  of  the  validity  of  the  circuit  board 
description  that  has  been  entered.  The  remaining  descrip¬ 
tive  data  to  be  entered  concerns  the  component  parameters. 

7 .  Temperature  or  Power  Input 

The  user  must  specify  either  the  average  power  to  be 
dissipated  in  each  component  or  the  maximum  junction  tempera¬ 
ture.  When  power  levels  are  specified,  the  steady  state 
junction  temperatures  will  be  calculated  in  THERML.  When 
junction  temperatures  are  specified,  the  maximum  allowable 
component  power  levels  will  be  calculated.  In  either  case, 
the  user  must  also  specify  a  case  to  junction  thermal  resis¬ 
tance  for  each  component.  This  is  usually  supplied  by  the 
manufacturer  and  provides  the  means  in  the  thermal  model  to 
link  the  component  power  level  and  junction  temperature  to 
the  case  surface  temperature.  Figure  7  shows  the  data 
summary  sheet  provided  after  the  data  has  been  entered  and 
verified. 

8.  Storage  of  Data 

Although  it  is  possible  to  load  THERML  and  perform 
the  thermal  analysis  directly  since  all  data  is  passed 
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through  a  common  block,  it  is  strongly  urged  that  the  circuit 
board  description  be  stored  on  mass  storage.  A  few  simple 
answers  allows  the  storage  to  tape  or  disk  for  retrieval  at 
a  later  time.  This  data  file  may  be  accessed,  verified, 
altered  and  recorded  back  to  mass  storage  using  BOARDS  to 
investigate  the  effects  that  changes  in  design  have  on  the 
temperatures  or  power  levels  obtained  in  THERML.  Both 
Appendix  1  and  the  program  provide  easy  to  follow  instructions 
for  retrieval  of  previously  recorded  descriptive  data  files. 

Totally  under  program  control,  the  third  major  program 
in  the  THERMELEX  system,  THERML  will  be  loaded  at  the  direction 
of  the  user  and  execution  started  at  the  proper  entry  point. 

D.  THERML 

1.  General 

Recall  from  the  previous  discussion  that  BOARDS  es¬ 
tablishes  all  the  parameters  that  describe  the  circuit  board, 
while  the  major  purpose  of  THERML  is  to  analyze  the  thermal 
performance,  it  must  first  establish  the  parameters  that 
describe  how  the  circuit  board  is  installed  and  cooled,  such 
as  the  spacing  between  boards,  volumetric  air  flow  per  board 
and  inlet  temperature  of  the  cooling  air.  Using  the  total 
set  of  board  and  installation  parameters,  the  thermal  model 
is  set  up,  solved  and  the  results  presented. 

The  approach  taken  in  the  thermal  analysis  is  to 
construct  an  approximate  thermal  network  [7]  for  every  path 
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of  heat  transfer  from  the  components  and  the  circuit  board. 
The  thermal  resistance  (R)  for  each  path  is  calculated  from 
the  set  of  parameters  and  if  a  temperature  difference  (AT) 
for  that  path  is  known,  the  expression: 


will  determine  the  rate  of  heat  transfer  (Q)  for  that  path. 

When  the  rate  of  heat  for  a  given  path  is  known,  the  expression 

AT  =  (Q)  x  (R) 

will  determine  the  temperature  difference. 

An  overall  heat  balance  for  the  components  and  the 
circuit  board,  with  all  the  heat  that  is  generated  going  into 
the  cooling  air  stream,  is  used  to  determine  either  the  steady 
state  junction  temperatures  (when  component  power  levels  are 
specified)  or  the  component  power  levels  (when  the  junction 
temperatures  are  specified) . 

2 .  Air  Flow  -  Thermal  Model 

The  cooling  air  flow  is  assumed  to  come  from  an  in¬ 
finite  heat  sink  which  supplies  air  at  a  constant  inlet 
temperature.  All  the  heat  dissipated  within  the  components 
is  assumed  to  enter  the  air  stream  with  no  heat  conducted 
into  the  card  guides  or  electrical  connectors.  These  guides 
and  the  mechanical  support  sections  of  the  connectors  are 
typically  made  of  plastic  with  high  resistance  to  heat 
transfer  and  this  assumption  leads  to  conservative  estimates. 
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As  the  air  travels  from  inlet  to  outlet,  it  is  assumed 
to  remove  heat  from  both  the  component  surfaces  and  the  surface 
of  the  circuit  board.  It  is  further  assumed  to  travel  in  air 
lanes  defined  by  the  height  of  each  region  perpendicular  to 
air  flow  and  not  mix  until  the  outlet.  As  the  air  removes 
heat  from  each  region,  the  local  air  temperature  (Tair)  will 
increase.  The  process  is  described  by  the  general  equation: 

Tair  at  X  +  AX  =  Tair  at  X  +  ?dfed  ^  ■ £  ■, 

(Mair)  x  (Cpair) 

where  Mair  =  Mass  flow  rate  of  air  [kg/sec] 

Cpair  =  Heat  capacity  of  air  [J/kg-degk] 

AX  =  length  of  a  region  in  the  air  flow  direction 
This  process  results  in  the  temperature  of  the  cooling  air 
stream  being  modeled  as  a  series  of  steps  as  the  air  travels 
from  inlet  to  outlet  within  an  air  flow  lane.  The  local  air 
temperature  and  the  convective  resistance  determine  the  local 
convective  heat  transfer. 

The  air  velocity  is  determined  from  the  physical 
description  entered  by  the  user  and  this  air  velocity  is 
used  to  determine  the  convective  resistances.  Recall  that 
circuit  board  spacing  (Zb) ,  board  height  (Hb)  and  volumetric 
air  flow  rate  (Fair)  are  part  of  the  descriptive  data  set 
previously  entered.  With  no  components  present,  the  air 
velocity  (Vair)  would  be  defined  by: 


Vair  = 


Fair 
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However,  the  components  tend  to  reduce  the  air  flow  area 
(Aair)  by  blockage.  The  average  blockage  area  is  determined 
by  calculating  the  average  number  of  components  in  a  vertical 
column  of  regions  perpendicular  to  the  air  flow.  In  addition, 
the  average  width  (Wavg)  and  height  (Havg)  of  the  components 
is  determined  and  the  average  air  flow  area  calculated  using: 


Aair  =  (Zb)  x  (Hb)  -  (Navg)  x  (Havg)  x  (Wavg) 


This  area  is  used  to  determine  the  air  velocity  from: 


Vair  = 


Fair 

Aair 


In  addition  the  average  area  is  used  to  determine  the  wetted 
perimenter  (Perim)  of  the  air  duct  formed  by  the  boards 
according  to: 


Perim  =  2Hb  +  2Zb  +  2  (Navg)  x  (Havg) 


The  hydraulic  diameter  (Dh)  is  therefore: 

4  Aair 


Dh  = 


Perim 


which  is  also  used  in  calculations  of  some  of  the  heat 
transfer  coefficients. 

3 .  Components  -  Thermal  Model 

All  heat  generated  within  the  components  must  be 
transferred  away  through  conduction  to  the  board,  radiation 
to  the  board  and  to  some  radiation  sink,  and  through  con¬ 
vection  to  the  cooling  air.  Figure  3  shows  each  of  the 
thermal  networks  for  heat  transfer. 
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DIP  components  are  usually  mounted  by  soldering  the 
electrical  leads  to  the  circuit  board  electrical  conductors 
(Figure  9) .  These  connector  pins  also  act  as  low  resistance 
thermal  conductors  between  the  component  and  the  circuit 
board.  The  total  thermal  resistance  from  the  component  to 
the  circuit  board  may  be  calculated  from  the  cross  sectional 
area  of  each  pin  (Axpin) ,  the  length  of  the  pin  (Lpin) ,  the 
thermal  conductivity  of  the  pin  material  (Kpin)  and  the 
number  of  pins  (Npin)  using  the  expression: 

Rpin  = 

There  is  also  a  small  gap  between  the  bottom  of  the 
component  case  and  the  circuit  board.  Figure  9  shows  the 
mounting  for  DIP  cases  where  this  gap  is  on  the  order  of 
one  mm;  for  chip  carriers,  this  distance  is  smaller  yet. 

Due  to  the  small  distance  (Dgap)  involved,  it  is  assumed 
that  no  convection  occurs  in  this  gap  and  that  the  conduc¬ 
tive  resistance  of  the  air  gap  (Rgap-cond)  may  be  calculated 
from  the  expression: 


_ _ Lpin _ 

(Kpin)  x  (Apin)  x  (Npin) 


Rgap-cond  =  -jv — * — \  *  /» - r 

^  c  (Kair)  x  (Agap) 

where  Agap  represents  the  surface  area  of  the  bottom  of  the 
component  and  Kair  represents  the  thermal  conductivity  of 
the  air. 

The  component  case  will  also  radiate  energy  to  the 

circuit  board.  Assuming  the  gap  to  act  as  two  parallel 
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plates  of  equal  areas  with  emissivities  of  Epsb  and  Epse, 
the  heat  transfer  rate  may  be  calculated  (Ref  [18] )  from: 


Q 


(Siq)  x  (Aqap)  x  (Te4  -  Tb4) 
Epsb  Epse 


where : 


Sig  =  Stefan-Boltzman  constant 

(5.67  x  10-8  --w^t.s — _ 
m  -  degK4 

Te  =  Component  surface  Temperature  (degK) 

Tb  =  Circuit  board  Temperature  (degK) 

This  radiation  term  may  be  simplified  by  expanding  (Te4  -  Tb4) 
in  a  Taylor  series  about  Te  and  retaining  only  the  linear 
portion  of  the  series.  When  this  is  done,  an  effective  gap 
radiation  resistance  (Rgap-rad)  may  be  calculated  from: 


Rgap-rad  =  —  EPse  +  Epsb  -  (Epse) (Epsb) 

(r)  x  (Sig)  x  (Epse)  x  (Epsb)  x  (Te3) 

Since  the  component  case  temperature  (Te)  is  an  unknown,  this 

resistance  will  be  recalculated  as  the  solution  progresses. 

These  three  resistances  (Rpin,  Rgap-cond,  Rgap-rad) 
may  be  combined  into  a  total  resistance  between  the  component 
and  the  circuit  board  (Rtote-b) .  When  the  component  is  a 
chip  carrier,  the  air  gap  and  lead  length  are  assumed  to  be 
one-tenth  that  of  the  DIP  case  [13]. 

Although  the  radiation  heat  loss  from  the  component 
is  extremely  small  and  normally  neglected  in  thermal  analysis 
of  electronic  circuit  boards,  it  is  included  here  for  completeness. 
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The  component  will  radiate  to  the  other  components  and  the 
back  of  the  adjacent  circuit  board.  For  the  purposes  of  the 
thermal  model  under  discussion,  it  is  assumed  that  radiation 
is  from  the  top  of  the  component  to  the  adjacent  board  and 
that  this  adjacent  board  temperature  is  the  same  as  the  board 
temperature  below  the  component.  It  is  further  assumed  that 
the  area  of  the  circuit  board  is  much  greater  than  that  of 
the  component.  Using  the  same  linearization  technique  pre¬ 
viously  discussed  results  in  the  expression: 


Rtop-r  = 


1  -  Epse 


(4)  x  (Sig)  x  (Epse)  x  (Ae)  x  (Te  ) 
for  the  effective  thermal  resistance  for  radiation  from  the 
top  of  the  component  to  the  adjacent  circuit  board. 

Convection  heat  transfer  to  the  air,  the  final  heat 
loss  path  from  the  component,  depends  on  the  heat  transfer 
coefficient  and  the  area  for  that  mode  of  heat  transfer. 

The  component  is  assumed  to  experience  two  separate  modes  of 
convection.  Those  portions  of  the  component  that  are  perpen¬ 
dicular  to  the  air  stream  are  assumed  to  experience  a  stagna¬ 
tion  form  of  air  flow  while  the  top  and  sides  see  parallel 
air  flow.  Recall  that  air  flow  is  defined  as  being  from  left 
to  right  as  required  for  data  entry  in  the  BOARDS  program. 
When  component  types  are  entered  as  being  horizontal  or 
vertical  using  the  special  function  keys,  the  component 
length  (Le)  and  width  (We)  parameters  are  set  such  that  Le 
is  along  the  air  flow  direction  and  We  is  perpendicular  to 
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the  air  flow.  The  standard  correlation  for  plane  stagnation 
flow  may  be  written  as:  Ref  [19] 

Hstag  =  (.57)  x  (Kair)  x  (Pr’4)  x 

where  Hstag  =  Heat  transfer  coefficient  for  areas  receiving 
stagnation  air  flow 
Pr  =  Prandtl  number  for  air 
Gnu  =  Kinematic  viscosity  for  air 
”sing  the  component  height  (He) ,  the  area  for  stagnation  heat 
flow  *.-.stag)  may  be  calculated  from: 

Astag  =  (2)  x  (We)  x  (He) 

The  portions  of  the  component  that  are  parallel  to 
the  air  flow  (top  and  sides)  are  assumed  to  experience  the 
same  heat  transfer  coefficient  that  would  occur  in  a  smooth 
duct  modified  by  a  roughness  factor  (Fr)  to  account  for  the 
presence  of  the  components  acting  to  increase  this  heat 
transfer  coefficient  (Hpara) .  Hpara  depends  on  the  Reynolds 
number  (Re)  determined  by: 

Re  =  (vair)  x  (Dh) 

Gnu 

In  the  entrance  region  of  the  duct  formed  by  the  circuit 
boards,  up  to  a  distance  of  approximately  ten  hydraulic 
diameters,  the  flow  is  assumed  to  be  laminar.  Reference  [20] 
contains  the  following  correlation  for  the  heat  transfer 


coefficient  in  the  entrance  region  of  a  smooth  duct: 


Hduct 


(.664)  x  (Kair)  *  (Gz)  x  (l+(7.3)  x 
(1.1)  x  (Dh)  L  Pr 


where  Gz  is  the  Graetz  number  defined  as: 


_  (Re)  x  (Pr)  x  (Pb) 

Gz - - - 


and  Xi  is  the  distance  from  the  entrance  of  the  cooling  air 
flow. 

The  value  of  the  heat  transfer  coefficient  predicted 
from  the  above  equation  has  been  found  to  be  low  from  compari¬ 
sons  to  experimental  data  of  Ref  [12]  and  Ref  [14].  The 
expression: 

Fr  =  1  +  5  x  (Perira  -  (2)  x  (Bdh)  -  (2)  x  (Zb)) 

Perim 

has  been  created  to  adjust  the  predicted  heat  transfer  co¬ 
efficient  for  the  rough  duct.  The  expression  reduces  to  one 
when  no  components  are  present  and  is  less  than  two  for  all 
reasonable  board  constructions.  The  resulting  heat  transfer 
coefficient  that  is  used  for  the  parallel  sides  (Hpara)  is 
therefore : 


Hpara  =  (Hduct)  x  (Fr) 

For  positions  beyond  the  entrance  length  the  flow 
may  be  laminar  or  turbulent  and  the  appropriate  heat  transfer 
correlation  must  be  chosen.  The  transition  from  laminar  to 
turbulent  is  assumed  to  occur  at  a  Reynolds  number  of  1000 
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since  the  components  act  as  turbulence  promoters  for  the 
air  flow.  For  laminar  flow,  the  expression: 

Hduct  =  .*  (££il± 

Dn 

is  used  and  the  result  modified  with  the  roughness  factor 
(Fr)  to  obtain  Hpara.  For  turbulent  flow  the  Dittus-Boelter 
relationship  is  used: 

„ _  (.023)  x  (Re*8)  x  (Pr*4)  x  (Kair) 

Hpara - ^ - 

Heat  is  convected  not  only  off  the  top  and  sides  of 
the  components  but  also  from  the  surface  of  the  leads  or 
pins.  Since  the  thermal  conductivity  of  the  pin  material 
is  so  high,  their  surface  is  assumed  to  have  the  same  temper¬ 
atures  as  the  surface  of  the  component.  The  effective  com¬ 
ponent  parallel  side  area  for  heat  transfer  is,  therefore, 
determined  from: 


Apara  =  (Le)  x  (We)  +  2  (Le)  x  (He)  +  (Aspin)  x  (Npin) 

where  Aspin  is  the  surface  area  of  the  pins  that  experience 
parallel  air  flow.  The  thermal  resistances  for  convection 
from  the  component  may  then  be  calculated  from: 

RPara  =  (Hpara)  x  (Apara)'  and' 

Rstag  -  ( h s t eg )  x  (Astag) 
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These  two  resistances  may  then  be  combined  as  parallel  re¬ 
sistances  to  give  a  total  convective  thermal  resistance  from 
the  component  to  the  air  (Re-conv)  of 


Re-conv 


(Rpara)  x  (Rstag) 
(Rpara)  +  (Rstag) 


Returning  now  to  the  basic  premise  that  all  the  heat 
produced  within  the  component  must  be  transferred  through  one 
of  the  heat  paths  illustrated  in  Figure  8,  the  heat  balance 
equation  for  the  Ith  component  is: 


Pow  (I)  =  Qto  board  +  Qto  air  +  Qrad  off  top 

utilizing  the  general  expression  for  heat  flow  as  a  function 
of  temperature  difference.  This  may  be  expressed  as: 

pow  m  -  Te(I)  -  Tb ( I )  Te(I)  -  Tair(I) 

'  1  ~  RToTe-b ( I )  Re-conv (I) 

Te(I)  -  Tb (I) 

Rtop  -  R ( I ) 

This  expression  may  be  rearranged  and  solved  for  the  compo¬ 
nent  temperature  (Te) .  The  resulting  expression  is  used  to 
eliminate  Te  from  the  final  set  of  equations  that  are  solved 
for  the  set  of  board  temperatures. 

4 .  The  Circuit  Board  -  Thermal  Model 

The  circuit  board  has  been  divided  into  regions  as 
determined  by  the  user  while  entering  the  circuit  board 
description  in  program  BOARDS .  Each  of  the  regions  will 
lose  or  gain  heat  by  the  normal  processes  of  conduction, 


convection  and  radiation.  In  this  thermal  model,  radiation 
from  the  circuit  board  regions  is  neglected  due  to  the  lower 
temperatures  of  the  circuit  boards.  The  board  temperature 
(Tb)  is  assumed  to  be  uniform  within  a  given  region  for 
purposes  of  convective  heat  transfer  to  the  cooling  air 
stream.  For  purposes  of  calculating  the  heat  conducted 

between  regions,  the  temperature  differences  are  assumed  to 

/ 

exist  over  the  distance  between  the  centers  of  the  regions. 
These  region  centers  are  the  nodes  in  the  finite  difference 
model  used  to  analyze  the  circuit  board. 

The  surface  of  the  board'  forms  part  of  the  air  duct 
previously  mentioned  in  the  discussion  concerning  the  calcu¬ 
lation  of  the  convective  heat  transfer  coefficient  from  the 
parallel  sides  of  the  components  (Hpara) .  The  heat  transfer 
coefficient  of  the  board  varies  with  distance  from  the  air 
centered  in  the  regions,  the  convective  heat  transfer  co¬ 
efficient  for  the  board  (Hb)  is  assumed  to  be  equal  to  Hpara. 
The  area  for  heat  transfer  from  each  region  (Areg)  includes 
both  sides  but  excludes  any  area  under  the  component  (Ae) 
since  the  air  is  assumed  not  to  flow  in  the  small  gap  between 
the  component  and  the  circuit  board.  The  area  (Areg)  is  cal¬ 
culated  from  the  equation: 


Areg  = 


(2)  x  (Bdl)  x  (Bdh) 
Nreg 


Ae 


where  Bdl  =  Length  of  circuit  board 

Bdh  =  Height  of  circuit  board 
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The  convective  resistance  from  the  circuit  board  region 
(Rb-conv)  is  therefore: 


Rb-conv  = 


(Hb)  x  (Areg) 


The  conduction  of  heat  within  the  circuit  board 
material  and  any  added  conductive  material  is  assumed  to 
occur  between  the  nodes  located  at  the  centers  of  each 
region.  For  a  given  region,  this  heat  flow  is  assumed  to 
occur  only  out  the  four  sides  of  the  region.  The  distance 
between  nodes  in  the  horizontal  or  air  flow  direction  (Lr) 
is  calculated  from  the  circuit  board  length  (Bdl)  and  the 
number  of  regions  in  the  horizontal  direction  (Nxr) .  The 
expression  used  is: 


Lr  = 


Bdl 

Nxr 


Likewise,  the  vertical  spacing  between  nodes  (Hr)  is  calcu¬ 
lated  as: 


Hr 


Bdh 

Nyr 


These  distances  are  used  with  the  circuit  board  thickness 
(Thb)  and  the  circuit  board  material  thermal  conductivity 
(kb)  to  determine  the  base  board  conductive  resistances  in 
both  the  vertical  (Rb-ver)  and  horizontal  direction  (Rb-hor) . 
The  expressions  used  are: 


Rb-ver 


_ Hr _ 

(kb)  x  (Lr)  x  (Thb) 
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and 


Rb-hor 


_ Lr _ 

(kb)  x  (Hr)  x  (Thb) 


The  conductive  resistances  in  the  material  added  to 
the  circuit  board  is  treated  in  the  same  manner  since  these 
materials  are  also  assumed  to  connect  the  nodes.  The  con¬ 
ductivity  of  the  material  (kl)  and  physical  area  (al)  have 
been  specified  for  either  a  conduction  path  unit  (CPU)  or 
electrical  lead.  These  are  used  in  the  expressions: 


Rl-ver 


Hr 

(kl)  x  (Al) 


and 


Xj2T 

Rl-hor  =  ■■■;  t - i  . 

(kl)  x  (Al) 

to  determine  the  thermal  resistance  for  conduction  in  a 
single  conduction  path.  This  resistance  is  divided  by  the 
number  of  such  paths  to  determine  the  total  conductive  re¬ 
sistance  of  the  material  added  to  the  circuit  board. 

This  resistance  is  assumed  to  be  in  parallel  with 
the  conductive  thermal  resistance  of  the  bare  circuit  board 
and  a  net  conductive  thermal  resistance  is  calculated  for 
each  of  the  four  directions  using  a  normal  product-over-sum 
formula  for  parallel  resistances.  Figure  10  shows  how  a 
typical  region  would  thus  be  connected  to  the  four  adjacent 
regions.  The  values  of  these  conductive  thermal  resistances 
are  stored  in  a  two  dimensional  array,  R1  (I,J),  where  the 
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first  index  represents  the  region  number  and  the  second  index 
is  the  direction  number  (1,  2,  3,  4).  These  numbers  represent 
bottom,  right  side,  top,  and  left  side,  respectively.  For 
example,  Figure  10  shows  how  Rl  (1,2)  connects  region  number  I 
and  region  number  I  +  1.  For  those  regions  on  the  edges  of 
the  circuit  board,  the  conductive  thermal  resistance  in  the 
direction  off  the  board  are  set  to  very  high  value  due  to  the 
assumed  adiabatic  boundary  conditions  for  all  edges.  The  set 
of  conductive  thermal  resistances,  Rl  (I,J) .  is  used  in  the 
heat  balance  for  the  circuit  board. 

With  the  component  treated  as  the  source  of  heat  for 
the  circuit  board-  one  may  again  apply  a  simple  heat  balance 
for  a  region  as  follows: 

Qe-b  =  Qconv  +  Q1  +  q2  +  q3  +  q4 

where  Qconv  represents  the  heat  transfer  to  the  cooling  air 
and  through  Q4  represent  the  heat  conducted  to  the  adja¬ 
cent  regions  as  shown  in  Figure  10.  This  expression  may  be 
written  for  Region  I  as: 

Te(I)  -  Tb(I)  _  Tb ( I )  -  Tair(I)  Tb(I)  -  Tb(I  +  Nxr) 
Rtota-b  ~  Rb-conv  Rl(I,i) 

,  Tb (1)  -  Tb ( I  +  1)  ,  Tb (I)  -  Tb(I-Nxr) 

(R1(I, 2)  +  Rl (I , 3) 

.  Tb (1)  -  Tb(I-i) 

+  - rITi,4J — 

As  previously  stated,  the  heat  balance  equation  for  the  component 
derived  in  Section  3  may  be  solved  for  Te(I)  and  that  expression 


used  to  eliminate  Te(I)  from  the  equation  above.  The  only 
unknowns  will  then  be  the  board  temperatures.  A  heat  balance 
for  every  region  may  be  performed  resulting  in  Nreg  simultan¬ 
eous  algebraic  equations.  The  coefficients  of  these  equations 
may  then  be  collected  into  a  matrix  and  solved  using  an  LU 
decomposition  method  [21]. 

5.  The  Analysis 

In  performing  the  thermal  analysis  of  the  circuit 
board,  there  are  two  separate  situations  to  be  considered: 

1.  Specified  component  power  -  determine  steady  state 
junction  temperature;  2.  Specified  junction  temperature  - 
determine  the  maximum  power  allowable.  For  the  first  situa¬ 
tion  a  case  temperature  (Te)  is  assumed  for  each  component 
since  this  is  necessary  to  determine  the  effective  radiation 
resistances.  All  thermal  resistances  and  the  local  air 
temperatures  are  then  calculated  using  the  given  variables. 

The  resulting  system  of  Nreg  simultaneous  equations  is  solved 
using  LU  decomposition  for  the  temperature  of  each  region  of 
the  circuit  board  Tb. 

This  set  of  board  region  temperatures  is  used  to 
determine  the  set  of  component  case  temperatures  using  the 
expression  for  Te  determined  from  the  heat  balance  of  the 
component.  These  component  temperatures  are  compared  to 
those  from  the  previous  iteration.  If  the  largest  difference 
between  any  of  the  temperatures  is  less  than  the  convergence 
criterion  established  by  the  user  (default  .1  degC),  the 
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results  are  presented  in  the  graphics  mode  on  a  fascimile 
of  the  circuit  board  as  shown  in  Figure  11. 

In  the  display  of  the  circuit  board,  each  region 
contains  the  component  type,  junction  temperature,  power 
level  and  case  temperature  for  the  component  in  that  region. 
Empty  regions  contain  only  the  temperature  of  the  circuit 
board.  Those  junction  temperatures  that  are  within  5%  of 
the  maximum  are  starred  (**)  for  easy  reference.  This  output 
is  dumped  to  the  internal  thermal  printer  to  provide  a  hard 
copy. 

If  convergence  has  not  been  reached,  the  new  case 
temperature  is  used  to  calculate  new  radiation  thermal  re¬ 
sistances  and  the  new  system  of  equations  solved.  Figure  12 
shows  the  intermediate  display  of  all  temperatures  that  is 
presented  on  the  screen  while  the  next  iteration  is  in 
progress.  If  longer  than  20  lines,  the  maximum  display  area 
for  output  on  the  screen,  this  display  may  be  moved  up  or 
down  with  the  display  control  keys  at  the  center  top  of  the 
keyboard  (see  Figure  2) .  Convergence  typically  occurs  in 
less  than  four  iterations  when  solving  for  component  junction 
temperatures . 

For  the  second  situation  with  specified  junction 
temperatures  (Tj),  a  power  level  of  .25  watts  is  assumed  for 
each  component.  The  component  case  temperature  may  then  be 
determined  from  the  expression: 


Te  =  Tj 


Pow 

Rj-c 


46 


where  Rj-c  represents  the  case  to  junction  thermal  resis¬ 
tance  set  by  the  user.  As  in  the  first  situation,  all  the 
thermal  resistances  and  the  local  air  temperatures  (Tair) 
are  calculated.  It  is  important  to  note  that  Tair  depends 
on  the  assumed  power  levels  since  these  values  will  change 
with  each  iteration.  The  resulting  system  of  simultaneous 
equations  is  again  solved  for  the  board  region  temperatures 
and  the  component  case  temperatures.  The  resulting  compo¬ 
nent  power  levels  for  each  region  are  determined  from  the 
expression 


Pow 


Te  -  Tb 
Rtote-b 


This  component  power  level  for  each  component  is  compared  to 
the  results  of  the  previous  iteration  or  the  assumed  values 
for  the  first  iteration.  Convergence  is  assumed  when  the 
largest  percentage  difference  from  these  comparisons  is 
less  than  the  convergence  criterion  established  by  the  user 
(Default  1%) . 

The  output  is  presented  in  the  same  manner  as  before 
except  those  power  levels  within  5%  of  the  minimum  are 
starred  (**)  in  this  situation  (Fig.  13) .  Since  both  the 
radiation  thermal  resistances  and  local  air  temperatures 
depend  on  the  power  levels,  more  iterations  are  required 
before  convergence  is  reached.  Typically  less  than  six  are 


sufficient. 


6 .  What  Now  Option  List 

Following  a  complete  cycle  through  THERML ,  there  are 
several  options  available  to  the  user.  A  different  circuit 
board  may  be  analyzed  either  by  entering  the  descriptive  data 
set  from  the  keyboard  or  by  retrieval  from  mass  storage.  The 
previously  recorded  data  set  may  be  read  in  using  THERML  with 
no  data  checking  capabilities  or  BOARDS  may  be  loaded  under 
program  control  to  allow  data  checking  or  changes  to  the 
circuit  board. 

In  addition  the  same  circuit  board  may  be  reanalyzed 
with  a  new  set  of  installation  parameters,  i.e.,  board  spacing, 
inlet  air  temperature  and  volumetric  air  flow  rate  per  board. 

7.  Sensitivity  Analysis 

Another  option  available  allows  the  user  to  investi¬ 
gate  the  effects  of  various  air  flow  rates.  The  user  specifies 
a  maximum  air  flow  rate  and  five  separate  analyses  are  performed 
for  each  of  five  air  flow  rates  up  to  the  maximum  specified. 
Figure  14  shows  how  the  results  of  this  sensitivity  analysis 
are  presented  for  the  situation  of  specified  power  levels 
while  Figure  15  is  an  output  for  the  second  situation  of 
specified  junction  temperatures.  The  outputs  from  each 
analysis  such  as  Figures  11  and  13  are  not  presented  during 
the  sensitivity  analysis  since  the  graphics  mode  is  used  but 
an  output  such  as  Figure  12  may  be  presented  on  the  thermal 
printer  if  records  of  individual  components  are  needed  for 
each  of  the  separate  air  flow  rates. 
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A  final  option  available  to  the  user  is  termination. 


It  is  important  to  terminate  the  THERMELEX  system  under 
program  control  to  insure  normal  key  definitions  are  returned 
and  graphics  parameters  correctly  assigned. 


HI-  RESULTS  AX'D  CONCLUSIONS 

The  THERMELEX  system  offers  the  designer  of  electronic 
circuit  boards  the  means  to  predict  the  thermal  performance 
of  air  cooled  circuit  boards  and  avoid  the  problems  that 
often  surface  only  after  the  equipment  is  in  use.  The 
system  is  easy  to  use  yet  provides  valuable  data  in  a 
variety  of  formats  that  can  help  the  designer  to  make  im¬ 
portant  design  decisions  regarding  circuit  board  layout  and/or 
cooling  air  flow  parameters. 

The  THERMELEX  system  has  been  tested  with  a  wide  variety 
of  circuit  boards  to  insure  that  various  combinations  of  the 
possible  components  and  empty  regions  will  create  valid 
descriptive  data  sets  and  reasonable  results.  In  all  test 
cases  the  results  have  been  satisfactory  when  compared  to 
expected  results.  For  example,  higher  component  power 
levels  result  in  higher  junction  temperatures  and  decreasing 
air  flow  produces  higher  temperatures  with  all  else  the  same. 
Several  tests  were  made  that  used  the  results  of  a  power 
level  prediction  as  input  to  the  same  circuit  board  to 
insure  that  predicted  junction  temperatures  were  the  same 
as  those  specified  for  the  original  test. 

In  addition  to  the  above  tests  for  general  validity, 
direct  comparisons  to  experimentally  determined  component 
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* 


case  temperatures  reported  in  reference  (14)  were  made. 

The  circuit  board  consisted  of  25  equally  spaced  14  pin  DIPS 
and  is  depicted  in  Figure  6.  Three  different  air  flow  rates 
and  four  different  component  power  levels  were  used.  The 
results  of  these  experiments  are  shown  in  Figure  16.  These 
same  flow  rates  and  power  levels  were  used  as  inputs  for 
THERMELEX  and  the  predicted  maximum  case  temperatures  are 
also  included  in  Figure  16.  At  the  lower  power  levels,  the 
agreement  with  the  experimental  results  is  encouraging  but 
for  the  higher  power  levels  there  are  significant  differences. 
In  particular,  the  predicted  maximum  case  surface  temperature 
shows  a  much  stronger  dependence  on  the  air  flow  rate  than 
the  experimental  results  would  indicate.  It  is  believed 
that  several  effects  neglected  in  the  the  thermal  model 
become  significant  for  low  flow  rates  and  higher  component 
power  levels.  For  low  air  flow  rates,  the  effects  of  natural 
convection  heat  removal  become  more  important,  thus  decreas¬ 
ing  the  actual  surface  temperature.  In  addition,  at  higher 
temperatures,  the  conduction  into  the  electrical  connectors 
and  mechanical  supports  will  also  tend  to  hold  the  surface 
temperatures  lower  for  the  experimental  results.  Further 
work  is  needed  to  resolve  the  differences  between  the 
experimental  results  and  those  predicted  by  THERMELEX. 
Particular  attention  towards  refinement  of  the  thermal  model 
is  required. 


51 


IV.  RECOMMENDATIONS  FOR  FUTURE  WORK 


While  the  present  version  of  THERMELEX  can  be  a  valuable 
tool  for  predicting  thermal  performance  of  electronic  circuit 
boards,  improvements  and  refinements  would  be  useful  in 
several  areas.  The  first  recommendation  would  be  for  more 
experimental  verification  with  particular  emphasis  towards 
developing  better  empirical  heat  transfer  relationships  for 
use  in  the  present  thermal  model.  The  thermal  model  should 
also  be  expanded  to  include  both  the  effects  of  natural  con¬ 
vection  and  boundary  conditions  other  than  adiabatic.  In 
particular  the  user  should  be  able  to  specify  a  constant 
temperature  for  one  or  more  of  the  physical  circuit  board 
boundaries.  This  would  allow  the  modeling  of  installations 
that  include  metal  card  guides  or  cold  plates. 

The  present  model  does  not  include  the  interaction  that 
can  occur  between  circuit  boards  mounted  closely  together. 
These  effects  could  be  included  in  the  radiation  sink 
temperatures  "seen"  by  a  board  or  included  as  effects  on  the 
local  air  temperature  for  the  bottom  and  top  of  the  circuit 
board. 

Additional  improvements  could  also  be  made  in  order  to 
increase  the  number  of  circuit  board  designs  that  may  be 
analyzed  with  THERMELEX.  The  limited  set  of  components 
could  be  increased  to  include  DIPs  with  different  numbers 
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of  pins  and  other  flat  pack  case  styles.  Discrete  components 
such  as  resistors,  capacitors  and  switches  are  also  able  to 
transfer  heat  to  the  air  stream  and  could  also  be  included. 

!'■ 
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The  Hewlett-Packard  9845  desktop  computer 
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Edit/System  Command  Keys  /  Special  Function  Keys 


Alphanumeric  Keys  Program  Control  Keys  Numeric  Keys 


gure  3:  General  Purpose  Keycode  Ove 


Figure  4.  Alternate  Region  Definition  for  Single  Circuit  Board 
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CODE  OVERLftY 


Figure  5:  Component  Definition  Kcycode  Overlay 
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THE  ABOVE  BATA  13  FOR  NELC  NRG 3  TEST  BOARD 
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Figure  7.  Data  List  of  Circuit  Board 
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Network  of 


Figure  9:  DIP  Mounting  on  Circuit  Board 
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R  board 


CONDUCTIVE  THERMAL  RESISTANCE  BETWEEN  REGIONS 


Figure  10.  Thermal  Network  of  the  Bare  Circuit  Board 


Figure  11.  Final  OUTPUT  DP.TA  from  TKERTSL.  (Temperature  Solution) 
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Eui  It  in  error  traps  throughout  the  entire  THEFMELE;:  system  will  tr,e 

user  from  loss  of  pre  ions  inputs  in  case  of  error:.  Information  about  the 


it  •?  1'nttc n  onto 


APPENDIX  B 


10 

20 

20 

40 

50 

eo 
70 
SO 
90 
100 
1  I  0 
120 
130 
140 
150 
1 60 
170 
130 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 


290 

Start-j: 

GO CUE  Error 

300 

i t ar  t  : 

?  $  —  "nOTE  TO  U  ?  E  R  A  2- OUT  SPECIAL  FUNCTION  kEY  C  ’ 

310 

OH  ERROR  GOTO  ’  arte 

320 

GOSUB 

P  ageh« ad 

330 

H  " 

PRINT 

Th«  t'o  1  1  Out  rl.J  Will  t<  '."I  ■iftiC*  -J r 

less  :••*-€- 

-lie 

r, . 

Q  . 

340 

PRINT 

"In  general  'lit -  j  ;  ?•/  de  ♦  f  i  n  1 1  t  or.  a  ar  •=  oalid 

•■her.  the 

r-‘r : : 

r  Ei 

1  i 

Mat  1 1  rig ' 

350 

PRINT 

"for  an  input  ■  ie  Ron  light  in  lot'4  r  r  t  gh*  ;  o  e 

1  2  0  ♦  *  . 

The 

l 

_'-‘P 

opt  t  on" 

330 

PRINT 

"vkO.1  returns  ’he  program  to  a  previous  quest  iir 

or  c:n’-:.l 

PO  1 

r  t 

370 

FRINT 

330 

PRINT 

"  T  h  i  -  a  h  :■  u  Id  be  u  2  e  d  w  hen  the  u  s  e  r  de<:  1  de  •  he  h  -  5 

made  some 

if* 

>: 

i  nput  that1 

390 

PRINT 

"can  be  corrected  bv  re-en’erirv;  the  a.  " 

400 

PRINT 

410 

6134 

PRINT 

"If  *'0u  do  not  have  a  plastic  key  cods  ewer  1  a"  fi 

lied  in  «:  h 

0  # 

71. 

420 

PRINT 

"a  paper  one  will  be  provided." 

430 

PRINT 

L  I N  •  1  ■ 

440 

PRINT 

"  KEV  'k:0  will  back  up  to  the  pre  'ious  cues’ 

ion." 

450 

PRINT 

KEV  ' k 1 '  will  display  printed  ou’ pu’ . 

■  E : :  I T  GP 

APHI 

460 

PRINT 

"  KEV  '  k  2  will  d  i  s  p  1  av  plot  r  *d  out  . 

*.  graphic 

•  " 

470 

PRINT 

KEY  'V 3  will  print  copy  of  plotted  output. 

DUMP  G5' 

Af  HI 

480 

PRINT 

KEV  k  4  wifi  disable  irterr.il  printer. 

'  r  F  I  N  T  c  F 

I 

1  1 

490 

DISP 

“Press  C 0 N T  WHEm  FEADi’  FOF  MOP  E  E.r  l  n  A  T  ION; 

500 

PAUSE 

510 

PRINT 

"  KEV  '  k  5  >•>  i  1  1  e  n  ab  1  e  m’ernal  crin'er, 

•;  F  P  I H  T  E  R 

I  i- 

0  • 

520 

PRINT 

"  KEV  ' k  £  will  rewind  left  hand  •  ape . 

v  PEW  I  HD 

:  t  : 

4 

530 

PRINT 

KEY  K?  will  rewind  right  hand  ’ ip* , 

'  REWIND 

:  t  i 

5 

AUTOST  .  DRIVER  PROGRAM  FOR  . 

*»•»**’'•♦»*■****■•■*»•«***  therhele:;  *»•■»■»■«•****■**»♦»•»♦*'»** 

# 

*  A  SYSTEM  OF  PROGRAMS  FOP  THE  HP  9*45 

♦ 

*  TO  PERFORM  THERMAL  ANAL  'IIS  OF  ELECTRONIC  CIRCUIT  BOARD* 

4 

«jft****  +  t4**4*t**»*tfT***'.t4''t*t***t-‘**»*******'t*t****«'  +  **4’-**t**»»*»* 

* 

4 

*  PREPARED  AT  THE  NAVAL  POSTGRADUATE  SCHOOL  MONTEREY 

4 

*  r.  a.  Fultz  lcdr  usn 

* 

♦  |  |  |  |  |  AUTOST  |  |  |  |  1  JUNE  SO 

PRINTER  IS  0 

PRINT  C  HRf  \  27  •  -i  "  1  34  T  “ 

DIM  Si  COO  3 
COM  Map 
PRINTER  IS  10 
GO SO 6  S«»i*o 
G  0  S  U  £  1  r"i  5  t 

IF  Anaf  =  "!AC1'_UF'"  THEN  GOtO  240 
GOTO  Start 


<  1  > 

78 


AUT03T  ■■  PS  1  .'EC'  POP-  THEFnElE.-: 


540 

PF  INI 

1  E 

550 

PRINT 

"  KE 

560 

PRINT 

L I N  <  2  * 

570 

PRINT 

"In  gene 

CONT  " 

5S3 

PRINT 

"wit  h  no 

i  on 

l  n" 

590 

PRINT 

"parent  h 

600 

PRINT 

L  I  N  <  l  • 

610 

PRINTER  IS  16 

620 

GO  SUE 

0  V  f  1  i" 

630 

IF  Rn 

=  r=‘‘ 

640 

DISP 

"LOADING 

650 

IF  Map=0  then 

660 

WRIT 

1 0  0  0 

F  1  4  will  answer  V»  i  . 
KE  i’  ’K15  will  krijutr  tlo.1 


PRINT  "In  'g^nir  »1  when  answering  gust'  ion;  on  selecting  ar.  oc  i  on  p  r 
lir  ent .  r  w  will  assign  either  the  d  e  f  i'J  1  1  or  the  r  l  r 
PRINT  "parentheses  >  t  ne  first  option  in  the  list'  as  the  desired  opt 


DEFFINITICNS " 


670  GOTO  6  90 


630 

Options*:  GO 

XUS  Error 

690 

Opt  i  on  a ; 

;  -I* 

"MAIN  P  *  v- G  F  ft  M  X F  T  1  0 r « £  " 

700 

ON  ERPOP  GOTO  Options* 

710 

COSUE 

P  ag*  h 

€  id 

720 

PRINT 

•• 

Th*  THERMELSX  p.  ogr  am  o !■: t  ag*  i=T 

5  of  f  hr  it  major  £  « - 

one 

of" 

r*jc»  ?cns,  Th*  h*< 

730 

PPINT 

" uhich  i  ■  in  cor®  nc-K*  providing  -e  inst. 

re  c 

a  1  led" 

740 

PRINT 

"EORF 

I'S  and  THE-ML,  Est.h  hawe  the  capaoi 

,  t  . .  t  r  *  ad 

and 

dat  a" 

ilO  but  r-  1  ■  5 Q ft p  Z< X 

750 

PRINT 

"  f  r  o  m 

a  Mai i-  Storage  D-'Mc?  *«g  Tape  ar  Di 

760 

PRINT 

"  < 

I  npu*  •:  i  r  •:  u  i  *  t-  >■  ar  a  d*=  i  ■:  r  i  r  ?  ?  :  -  f r  ou 

v  «= 1  ’t-o  at  a .  .  .  " : 

770 

PPINT 

"  t  b  > 

ft  ]  1  jw  j r  aph  i  •:  » 1  :  •*.*•  ■:  V  •  ngot  d t  p*  1  o 

n  i .  .  : 

730 

PRINT 

“  <  «  ! 

f-f  ak  «  ■:  *  rrscu  :  r.  i  t  o  d®  £  •:  r  r  p  *  t  •:  r.  i  a  i  r 

-5  Q  u  *  r  -5  - .  .  .  11 J 

790 

PRINT 

"  •  d  1 

fi  fco  r  d  d  'S’  s  ■: i  p *  i  •:>  n  3  t  a  a  a  a  a  *  0  r  a  -a  ■=  • 

.  •  " 

800 

PRINT 

LIN'  I 

>f  "THEF ML  p-?r t  or r>i£  th«=  ih«ri»a!  anal  ‘  £ 

-.£  aria  OutpU*  of  r*  £ 

8 1 0 

PRINT 

L  IN-  1 

.•  ,"V0UR  options  ape: 

820 

PRINT 

l 

.  LORD  BOARDS  to  input  DESCFIF'IOM  FF 

0  M  ’  E '  '  S  1  j 15  r  r . 

830 

PRINT 

L  I  N  ■.  I 

> .  SPR'  20  '■ .  "  2 .  l  S  r  D  EO-PDS  TO  F  E-S  DES 

£  P  I  ?  T  I  X  N  *1 F  p  M  ft  :  :  X 

E" 

840 

PRINT 

L  I  N  ■  1 

• , SPA'  20' ,  "3.  LORD  ThEF"L  TO  :ERD  IE: 

:  p  i  «= r :  or^  x  :-f p  maxs 

GE"  I 

with  immediate  anal .sis 

, " 

850 

PRINT 

L  I  N  <  t 

.1 ,  SFR.,20  ■  ,  "4.  COPY  ALL  PROGRAMS  ” 

860 

flns  *  = 

"  1  " 

370 

INPUT 

"VOUP 

CHOICE  '  < 1 . 2. 3, 4j “ , Ana* 

880 

IF  Rn 

s T  =  ■'  BACK  UP"  THEN  Start 

890 

flrii .*  I  M T  ■-  VftL 

■  flr.if  1  1 

900 

IF  <  ft  n  s  '  0  '■ 

RND  ■  ftrii  5  '  then  ??o 

910 

COSUE 

Em  ,i 

920 

GOTO 

Opt  i on 

l 

930 

940 

950 

960 


IF  fins' l  THEN  Map=2 
IF  Ar,s  =  2  THEN  It  ap  =  3 
0  H  A  n  s  G  o  3  U  £  G  n ,  G  e  n  ,  T  h  e  r  m  1  ,  C  •:>  p* ' 1 
GOTO  Options 

970  Gen:  DI8P  "LORDING  GENEFRl  CIRCUIT  BOARD  PROGRAM 
980  LORD  "BOARDS  "  ,  1 
990  STOP 

1000  Then."  1  :  D  I  SF  "UOF'I  IMG  LORDING  THEF  ML  " 

1010  LORD  "THEF ML", 10 
1000  STOP 


<21 
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fiUTuOT 


.  liPI”ER  FOP  Tmef-iELE:'. 


1030  Copve 1 G03UB  Error 

104  0  Cop1*!  1  THl-J  i  E-  7  ION  FOR  FROGPAN  REPP1 0 B l. C  T  ION  CO*  TO  HN  OTHER  lift ;  3  STOPfijE 
1050  OH  ERROR  GOTO  t’o 
1  0 o 0  $1  =  "  C  OPY I  NO  " H E R : ’  £ L E 0  F R  i j 0 R‘ Ri ft 3  ’ 

1070  COiOE  Pa'jehead 

1030  PRINT  "  This  is  :t  l  jr  al  1  C"-i  eas*1  r  e  or  •:  dttc  t  l  or  o  ♦  thERMElEa  *rar,i  :ri  m 
Star  age  ’’ 

1030  PRINT  "de-'ice  »  o  another.  The  masa  itorias  n.ed'Mm  ■  '  ape  or  dial  >  m,.t, 

nt  t i il i led. " 

1100  PRINT  "It  the  med'utn  int«r"jj  aa  the  dest  i  r.  it  i  on  is  net.-  or  Y'I"-i  'j  i  i  h  *o 

ae  all" 

1110  PRINT  "tViij  thin  ih»  uae  ot'  -option  2  ei  ’  1  oirf-jni  tt.ii  tail.  "sire-:  in 

ERnELEY  1 

1130  PRINT  ri-3uirii  dnl  appr  9  •  ’  m  a*  1  •  ■  500  r«t  jr-3;,  it  i  ■  ptiiilii  ’0 

a  me  d  i  urn " 

1130  PRINT  "that  alr-sij-  :  jr»  uni  F  i  1  « i  •  j*  r t  a  nidi  h:  -  <r,  this  r..  ay  nc 

tow" 

1140  PRINT  "iut'ficunt  space  *' or  *  re  3  at  a  tiles  c:rit  iir.in;  *  he  :4r:.<it  dear: 
cripti  ana .  " 

1150  PRINT  "Option  1  ■  i  1  1  record  in  *  he  a"  at  1  at- 1  e  spaced  ‘  t'  pea  a  I C 1 e  Ct.t  it 

ec  omme  nde  d " 

1160  PRINT  •tr,a'  an  entire  maai  ciji  media  ds"0*ed  '  o  ThEPNELE  ' .  1 
1170  PR  INT  LIM«  1  •,  "VC-yP  OPTIONS  iRR£:  "; 

1130  PRINT  "  I.  COP”'  ALL  -tChrhll:  NlTnOUT  INITIALIZATION. 

1130  PRINT  L  I  M '  1  r  ,  iPii  ■  30  '  ,  "  1 .  OOP  F  "O' OR  AN':  H  F  T  E  "  I  M  I  T  I  A-  I  2H  T  I  3n  .  " 

1200  fins  I* "1" 

1210  INPUT  "YOUR  CHOKE  F=0M  HE  I  ■  t  •  1  c-r  2  •  "  ,  Hr  j  I 

1220  IP  Ana  Is " EAC I  _uc'  '  *h£n  !yp  '  :r  e 

1230  Ana  s  I  NT  .  7HL  ■  Ar. a  I 

1240  IP  < find- 1  •  OP  <  H n s  =  2  ■  THEM  1270 

1  250  COCOS  Er  r  i  n 

1230  GOTO  Copy 

1270  Hr,i  J  =  f1i  ,.i  1 1 

1230  EBIT  "UHHT  N  H :  3  E.TOP  HGE  BE'.-  ICE  CONTAIN!  THE  "hEPMElE:  iV:TE1  I  *  I  5  ,  :  T  l  4 
,  ETC)  ",  Plnsl 

1230  IF  fini 1= " fPC K_UF "  *-iEN  Cep" 

1300  IF  Analtl.II  " : "  THEN  fins  1  = " : " "fins  I 
1310  Maui  ll»Anal 
1320  finil=" 1 T 14" 

1330  EBIT  "UHHT  MASS  3TOPHGE  t  E  *  I  0  E  C0NTHIN3  *NE  BE :7 I Mfi  7  I C  N  MEBIU!  •  1 *14.  1 T 
F3, ETC)". final 

1340  IF  final= " BHC) _UP"  THEN  Copy 

1350  IF  finsICl.U  " :  "  THEN  fina 1=  "  1  “ -fins  I 

1360  IF  final  Matts  If  THEN  1450 

1370  BEEP 

1330  F’RINT  PAGE , L I N t I  0  ■ , 3FA t 1 0  ,  ‘  HOH  CfiN  I  COP  -  FROM  "  1  Ms -.ts  1 1 J  "  TO  ‘Jfinal 
1330  PRINT  SPRN  10t,  "TP:V  fiGfilH" 

1400  WRIT  2000 

1410  BEEP 

1420  WRIT  1500 

1430  BEEP 

1440  GOTO  Copy 

1450  Maui  21 efina I 

1460  IF  fins*!  THEN  C:p"2 

1470  BEEP 

1430  PRINT  PAGE. LIN'  10  1  , TAB  15 >, " 

1430  PRINT 

1500  PRINT  TAB  '  15  1  ,  "  **4**e-e*-*-*e*-«-*44*iJHF’  III  NG  *■*■»*-*♦♦*******-♦  " 


>  3  > 
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flU T OS T 


•  •  igi  ef  for  thef"Ele:. 


1510  PRINT  Lift'  r  • 

1550  PR. t NT  TAB •.  15  ,  “THIS  F'PCCR'nt'.  MILS.  ERASE  PILES  Oft  "  :fUu;2t 
1530  PR  HIT  LIHC2  '  .  Tm£  •  15  •  ,  ' 

1540  PRINT  lINv  1  ■  ,  SF'h  lO'.’USE  »  TO  gflCP  UP  IF  THIS  IS  NOT  YOUR  tZ 

1550  PRINT  LIN'  it,  SFA- 2u  .'PRESS  COnT  IF  THIS  IS  C't . " 

1560  UflIT  200 
15T0  EEEP 
1580  INPUT  RniJ 

1580  IF  An;i  =  "EflCr  _UF  "  THEN  -S - 

1600  DI'SP  "  HOF'S  I  NO  I  N  I  T  I  PL  I  -  I  NO  ";t'';u;2t 

1610  INITIALIZE  M;y;2i 

1620  IF  N;u;2fC2,  2'J  'T'»  Then  C ■  LI 

1630  DISP  "MORf  ING  -£TTInG  vr  '  NN-j-.f 

1640  CREATE  “D'JMtV.  "  '.'  .  =  L  f  .  420 

1650  CREATE  "  END':  PA  "  :  Mi n  1 2 S  ,  1 

1660  PURGE  "IiLTinV'T  Hi  ..;2* 

1670  Cop"2S  •  IN  THIS  SEC  TIC. -I  ThE  AC  T'jflL  COPYING  Tiit  ES  P-A'SE 
16S0  RESTORE  1750 
1680  FOR  1 a 1  TO  8 
1700  READ  N ai.i. 4 

1710  COPY  NamfblUu;  IT  TO  Nat.f?  iUuill 

1720  DISP  "COPYING  " ;  N  ar.i«  t ;  "  FROM  " ;  Mi  ...  £  1 1 1  "  TO  "SfliMil't 
1730  WAIT  1500 
1740  next  I 

1750  DATA  BD'Sf  EY,  'STDr  E  .  .  DEMC-T .  DENC-R  .  AUTO'S  T  ,  BOAS  OS.  "HER  7_  .  "NAME  S 
1760  RETURN 
1770  i 


1780  3*t it  be : GO  SUE  Er^or 

1700  Set  st  c  :  >  THIS  SECTION  DETERMINE  S  ..h£R£  *he  thermEL.:  8  •  STEM  IS  AnD 
1800  1  MASS  STORAGE  TO  TH*T  PLACE 

1810  OH  ERROR  GOTO  8i'  jf  .;•< 

1820  Sf«"LOCftTION  OF  THE  THEPMELE  •  S'.  STEM" 

1830  GOSUo  Page  he  ad 

1340  PRINT  "  It  li  nstiil  iff  'Nit  the  IN  Mi  1*  ;-r  age  'AM  ’-Fit  Sf'it 
ERMELEX" 

1850  PRINT  "system  b;  Icsitid  :  n  'hi  di*  i’alt  pr  d-  r"«' 


e  default  " 

1860  PRINT  "maai  »t«r  ».;t  util  be  owiMM  b"  »  "  e  e>  :  ;>  a  . 


1 1  e  r  e  d  “ 

1870  PRINT  "during  'he  u;e  of  ThEPMELE.'.  P  it  i  >'il«i  I  :  a*  4  d  d"'-e" 

g *  di'MCis " 

1830  PRINT  ":„i"  b<  iioeiid  by  appending  the  »»:•«: -our  i  i’  i  de  '  :  <  ddde  •: 
name.  " 

ie?0  flnsl=":T15" 

1000  EDIT  "CHANGE  Or  ENTER  EEL'S".!  THE  LOCATION  C  F  ThEPMELE':  '"‘.Ai'.-l 
1910  An;  i»UP'Cf  t  Fln;  i  • 

1920  IF  AnifCl.lj  ,"1"  THEN  An;  S  =  "  :  An  =  X 

1930  IF  An;  f  1 2 , 2  3  = "  F "  OR  'fln;  1 1 2 . 2  3  *  “  T  "  '  OR  ■  ;  ft  2 . 2 1  =  0s  Arif 

)  THEN  1970 


1940 

EE  EP 

1950 

GO'SUB  Err  in 

1960 

GOTO  Si '  ;»  o 

1970 

M  ;  i.i ;  1  f  =  Ftn;  t 

1980 

M  A  S  S  S  T  ■  j  r  A  G  E  I  S  l'i ;  u  ;  1  f 

1990 

RETURN 

2000 

Oueriiu;  t  THIS  SECTION  PREPARES 

ft  N  0  V  Er'LHV  POP  T  H  E  1 

JrE* 

2010 

flnsf ="Y " 

2020 

INPUT  "DO  i'OU  DESIRE  A  PAPER  FEY 

-COLE  -  Cr  : 

,  fir* 

81 


flUTOrr  ..  B  P  I  '  E  P  r OF  T  n  E  r  N  E  L  E  ' 


2030  IF"  O.F'C  I  lini  f  1  - " H "  '  uR  1  An T  T  =  " BAC  N  Jr  SHE.  F  E  T UP  N 
204  O  PRINTER  IS  0 

2050  PPIIIT  ;f«'  15  '  ,  'TEAR  2FC  F.JP  SENERA.,  PUFF  USE  ►  E  ,  OVERLAY  "  ,  L  I N  t  2  1 

2030  PPIIIT  "  j  E  icl_.jp  i  E..IT  |  ENTER  }  DUMP  j- F  -  T  I3|PPT  IS  ;  RE.-INB  j  PE. HID 
PLACE " 

2020  FRilNT  “I  PC'-’  j  CRAPH I C  |  CRAPH I C  j  GRAF  H I C  j  10  j  *3  [  |T14  |  1T15 

ABOVE  PE. j" 

2030  PPIIIT  "TEAR  HEF-  -  THEN  PF  ES  E  CONT - " 

2030  PRINT  LIN- i > 

2100  PAUSE 

2110  PRINT  "j  .ij.  |  |  |  |  |  EDIT  |  YES  |  NO 

PLACE" 

2120  PRINT  “ i  |  |  j  |  |  LINE  |  | 

BELOW  K  E ,  L  1 
2130  PRINT  LIN 
2140  PRINTER  :  •  1  3 

2150  RETURN  i  END  OF  0‘J*r 

2130  1 

2170  P  ig ■=  H •?  i1-  1  1  'HI;  .  E T  I  u H  F' L m i.  E  S  D E  :  I  "  E  D  H E ~  I  INC  C f I  A  S'u  A  Nk  R " 

2130  PRINT  F“jE  i  7R;:'  ;4"L;fl'  :  I  1  2  .  ,  "  ♦  "  ]  C  H  R  T  ■  1  2  ■  I  3  i  •  -■  H  R  S  1  _  :  I  1 

2190  RETURN 

2200  Emnl  '  tw;:  SECTION  ALERT'D  THE  USER  TO  An  ATTEMPT  TO  INPUT  INVALID  DATA 

2210  BEEP 

2220  PRINT  FADE 

2230  DIS-P  "  In5UT  OUT  OP  RANGE . TF,  AGAIN' 

2240  WAIT  2500 
2250  BEEP 
2230  WAIT  1500 
2270  BEEP 

2200  RETuPtt  '  END  OF  Er 

2290  Err 

2300  PRINTER  IS  13 

2310  PRINT  L  I  N.-  ;t3  . ,  TAJ  •  20  ■  .  "EFROP  NUMBER  " :  EF  = ;  "  H  -S  OCCUR  ED  IN  LINE  "  :£RRL 
2320  BISP  "  F  r  E  :■  3  2CNTIilUE  Wn£><  PE  AD-.  TO  RESUME  :  F  OOF  AM 
2330  PAUSE 
2340  I 

2350  P*g«cr *  1  1  THIS.  BEST  I  ON  ER'EAk  S  T.-£  INSTRUCTIONS  INT0  e  ACES  FOR  THE  CRT 
2330  MSP  "rViis  CONT  ...ter  *'  e  iU  ■  *".;r  in  or  4  i  n  =  •.  r  ;  r  i r-,  j  “ 

2370  PRINT  L  I  N 1  El  ink  =  ’ 

2330  PAUSE 
2330  RETURN 
2400  ! 

2410  P».g«c-r».  1  1  THIS  DEC  TUN  BR  EAR'S  THE  PRINTED  I N  SIR  JOT  I  ON  I  INTO  PACES 
2420  PRINT  L  IN-'  B  1  ink  i  • 

2430  PRINT  TAB'  35  • , 'Pg.  " ; P ige nun 
2440  PRINT  Lilt'  1  " _ 

2450  IF  Pig*r,uB. .  5~ THEN  RETURN 

24  30  PRINT  L  IN'  4  . ,  TAB  •' 37-LEfl'  Df  2  • :  OHF  T  1  32  •;  ST  ;  OHPT  ■  1  2  :  •  1  TAB  73  - 1  "Pg.  " :  P  ijc 

♦  1  ,  L  I H  <  2  i 
2470  RETURN 
2430  i 

24  90  I  n  s  1 4  ;  C  0  D  U  "  Error 

2500  Iriit : '  THIS  DEC T ion  PREPARED  a  SET  OF  WRITTEN  INSTRUCTIONS  FOR  THE  USER 
2510  ON  ERROR  COTO  Iriit* 

2520  Di  =  "  I  NS-TFUC  T  I  ON  S  FOR  US  E  OF  ThEPMELE;:  ' 

2530  COSUE  Pig chi  id 

2540  PRINT  "  H  vr  1 1  r  r  r.  =  4t  |  iu  t  r  w:  t  i  om  ;  ir-<  o  c  p  ir  c  J  ter  *  h  c  WT4"  •  I- 

will  he  I  |j  “ 


32 


filJTOST  . 


tiPIYEP  FOP:  THERNELE 


2550 

PRINT 

"one  to  becofee 

f  ini  i  1  : 

»r  with  t  hi  T 

HEPMELE: 

:  =  i » 

•Sill  without  4C  • 

4  if  !  /  Ji 

\  ng 

the  " 

2  5  6  0 

PRINT 

“»  he  computer. 

These 

ire  intended 

to  c n  1  ■ 

■  iur-K 

’  e  ro  e n t.  the  i?  ' 

of  dire 

C  t  1  C'f  U  " 

25  70 

RR  I NT 

"  g  1  n  dur  >  ng  t 

he  e  , 

cation  of  the 

=  •■'£*  *ru 

ot  pr 

ogr  inis .  These 

i  r.i  ♦  r*' *.4 c 

t  i  on 

a  vill" 

2580 

PRINT 

"norfiiil  1  y  be  prfient  ? 

d  on  the  jcfe 

>=  n  b  »u  t  1 

if  "OU 

1  re  4  h  ar  d 

CO  Of  :-f 

the 

" 

2590 

PRINT 

"  ir’-’  r  *.4  •:  *  1  0  n  i  t 

ENTER 

YPPT  rather  t 

h  in  Y  .  " 

2600 

flr,iX=" 

2610 

INPUT 

"HO  YOU  tiES-IPE 

PPINTE 

:■  1  m*?  t  p  uc  t  1  cm 

:•  •  H  or- 

V  OP 

YPPT  ,  rinsS 

2620 

IF  fin* 

K  UP"  THEN  PET ■  J 

fti 

2630 

IF  <UF 

c  a  nr:  =  tc  l.n  ■  =  •■ 

< "  :•  OP 

■.  UPC  «f<  fins  *  ■  = 

•'  N  ■  THEN  Zc>* 

►j 

2640  G 0 3  U E  Err  in 
2 6  5 0  GOTO  r  n  a » 

26(50  IF  UPCf ■  sins!  ThEH  PETUFN 

2670  PRINTER  IS  16 
2630  PRINT  PPtGE 

2690  Ir  OFCXirmiXC  I,  23 '  =  THEN  PRINTER  13  0 

2700  P= 1 6 

2710  IF  UPC  t<  fini  4  C  1 , 2  3  '  =  "YF  '  TrlEN  P  =  0 

2720  PRINT  LIN'.-C  ,  THE.  37-LEN  it  2  ,  "♦«  '  1  2  -  F  X  1  32  '  1  : X 1 C Hr  I  1 23  .  ; "  — • "  ,  L  I N  ■  2  < 

2730  PRINT  «  Th*  THERNELE  :  *•  ;-tem  i*  d«j  s  jne  3  to  p  €  r  »  :  r *n«r»a)  ana'  'S  >  *  : 

air  cooled" 

2740  PRINT  "*t*c Tronic  circuit  boarda.  The  conaia’a  f  « hr«  i  major  p"  :-ji’ 

am  4  i  “ 

2750  PRINT 

2760  PRINT  LIN'  l  • ,  TfiB*  I  7  •  ,  "  1  .  8u  T  23  T  3r  iv«t  and  ae-up." 

2770  PRINT  LIN' 1  TRB'  17  ■,  "2.  3  C  nr  I'S  Input  ard  rtcorJin;  ■:  *  data.' 

2730  PRINT  LIN'  1  ,  TRE '  1 7 '  ,  "  2 .  THE  PUL  and  output  ot  reau't *.  " 

2790  PRINT  L IN'  I > 

2800  PRINT  "Tne  4  c  T c  3  T  procram  eatat'l  lanes  special  rev  deffinitiona  and  ao  T  £  a 
a  the  d  r  i  i  ■  4  r  “ 

2310  PRINT  "('or  th«  other  pr  ogr  am  a  dthm  t  h4  thEPMEl£ ; -inm,  The  l.e"  de 

i  i  o  n  a  ar  ?  " 

2320  PRINT  "valid  throughout  the  svstem  4  -cap*  uhai  enter-ng  "ha  specif'c  compor- 
e  nt  t  v  p  4  “ 

2330  PRINT  "codes  during  4  ecut  1  on  of  B  Oh  FT  .  • 

2840  B 1  an!  a  =  0 

2850  IF  P=16  THEN  G03UB  Pagecrt 
2860  PRINT 

2870  PRINT  "  Thia  driver  program  la  entered  tv  placing  the  "ape  in  "he  pr  i  m  ar 
y  tape" 

2380  PRINT  "tranap'Or'  <:T15„>  at  the  right  aide  above  the  special  Re-s.  You  then 
:  “  ,  L I N  u  > 

2390  PRINT  TiiBCIO.', -TYPE:  LORD  "  ;  C  HRX  ■  34  ,  ;  "PUTy  3 T :  T 1  5  "  ;  H  =  t  ■  24  ■ ;  "  ,  1  Then  Pre 

as.  EXECUTE 
2900  PRINT 

2910  PRINT  "If  the  93458  is  off,  the  driver  may  be  loaded  t-  inserting  "he  "are 
in  :  T  1 5 ,  '• 

2920  PRINT  “latching  ine  ftUTO  ST  Rev  in  the  do <-<n  position,  and  turning  1  he  pe  er 

on.  " 

2930  PRINT  "In  either  case  the  first  question  •-»  t  1  1  be  corce-ning  t  lie  location  of 

the  " 

2940  PRINT  "THERNELE.;  avitem.  The  program  mil  convert  the  default  mass  at  --age 

dev  1 c  e " 

2950  PRINT  "to  uhat  cer  device  contain*  the  £"£*em.  It  ia  important  t  not  cha 
n  g  e  this" 


( 6  i 


S3 


gUTOj-T  DRIVER  fqp  THE*mElE 


2960  PRINT  "wnile  us  i  ng  THERM ELEv.  Tneie  i  ns t  r  uc  t  i  ons  m  a*  ■ 
or  CRT  and" 


provided  on  pap 


it  ions 


1  •  1 1  -  P  ic  k  ar  d  " 
2930  PRINT  ’* '  }. 
a  gui de . " 


in  RUTOST ■ " 


:  OV 

i  r  1  ax* 

fn  ay  t  e 

fr 

"  1 

ded  as  a 

gui 

de  t 

0  *  he 

b'.* 

HU TOST 

.  8  p  1 

a  s 

t  \  : 

over  1  a " 

1  s 

av  a  1 

1  ab  1  e 

64  * 

h  1  ■:  h 

m  a1.'  b  e 

f 

1  1  1 

e  d  1  n  u  s 

1  ng 

t  he 

p  a*  ■=  r 

an»s 

axe  e 

r  »  *  r  e  d 

*'  r 

0:, 

the  c  p  *  ' 

O  n  S 

e  1  ec 

t  ion 

1  s 

re  t 

1  0  aded 

t  O 

a  I 

1  0  w  t.  n  e 

1  npu 

t  of 

c  1  r  c 

ii.» 

rj 

0  ar  d . 

The  in 

i  t 

r  '.4  •: 

t  i  0  n  s  *  h 

at  f 

0 1  1  0 

w  ap  0 

'  r r,i  He 

)'^r!  a^» 

1  j*  •  Men* 


-  o  *  h 


descr ipt i v e " 

3020  PRINT  "data  fr;m  M 
opt  1  on . " 

3030  PRINT 
304  0  B 1  an k  s  =  4 

3050  IF  P  =  1 6  THEN  CO  SUB  Ragecrt 

3060  PRINT  "  THe  yi?r  should  h  a'-‘«s  either  *  he  circui*  board  or  a  f  ac  s  i  m 1  1  e 
1  1  ab  1  e " 

3070  PRINT  "''hi  1  e  he  is  M  1  no  M*.e  3  0  8  ~  D :  pr  :or  .  Orient  ♦  he  board  such  that 
the  cooling"  ~  ~ 

Measure  the  length 


h  e  right, 


Ce  ♦  1 1 


grid  *o  be  used  in  *  he  *h er- 
1  m a 5  1  n ar  lines  that  are  zr* 
ill  either  be  er.ip*  :r  i.m  1  1 
is  the  case  of  4  0  pin  l<  I  c*  : 


3030  PRINT  "air  f  1  ou  is  from  the  left  to 
in  the  air" 

30  90  PRINT  "  f  1  o  v  direct  1  on  ,  w  i  dt  h  and  t  h  i  k  re  s  s  of  ♦  h  e  c  »  r  :  u  1  t  bo  ar  d  1  n  m  1  '  1 
ter s  < m m ) , " 

3100  P  R I  N  T  "It  1  s  re  cess  ar  •. 1  to  3  1  i  g  *  t,  n  e  b  o  ar  d  1  r  *  0  e'en’  -c  ac  e  J  1  m  ag  1  r.  ar  ■ 
ions  in  both" 

3110  PRINT  "horizontal  and  "ff  i*.il  directions.  The  centers  of  each  of  these 
g i o  n  s  will" 

3120  PRINT  "  f  o r  m  *  n e  n o d e  s  of  a  f  ini  t  e  d  i  f  f  e  r  e  n  1  » 
analysis" 

3130  PR  I  NT  "of  t  he  e  1  ec  t  ron  1  c  u 1  t.  boar  d . 

*d  divide" 

3*40  P  P I N  T  "the  circuit  bo  ar  d  1  n  ▼  r  e  g  1  o  r.  s  1.  hi. 
tain  one " 

3150  PRINT  "component  ■  8  n  e  •  c  e  p  t  i  o  n  t.  o  this  r  '.4  •  « 
ich  occupy" 

3160  PRINT  "two  regions  due  to  their  large  sice.  ftn  at  temp*  1:  appro  1  fn  ate  tl 
real  circuit" 

3170  PRINT  "board  with  a  model  requires  some  flexibility  and  1  magi  rat  *  or  at  tr 
point." 

3180  PRINT 

3190  PRINT  "  The  thermal  model  use  3  tor  the  analysis  •«*  1  1  1  assume  that  earn 
m  p  o  n e  n  t  is" 

320O  PRINT  " centered  in  the  region.  The  following  compone n* 5  can  be  included: 
3210  PRINT 

3220  PRINT  "  DIP'S  (horizontal  or  vertical'  CHIP  CRPPIE-i  " 

3230  PRINT  " 

3240  PRINT 
3250  Page n urn =1 
3260  B 1 ank s=4 

3270  IF  P  =  0  THEN  GO  SUE'  Pageprt 
3280  IF  p  =16  THEN  OCSUE  Pagecrt. 

3290  PRINT  "The  1  1  m  1 1  at  i  ons  imposed  bv  r  e  s  t  ••  i  -  ♦  i  ng  ♦  he  poren*  =  ♦  *  the  lis* 


1  4 , 1 6 , 24 , 40  pins 


16,24,40*64  01ns" 


owe  will  " 
3300  PRINT 


ELEX  but  " 
3310  PRINT 


"  P r  *  *'  6  n  t  some  c  1  r  ■:  u  1  t  b  o  ar  d  s  f  rc’11  being  p  r  e  <:  1  2  e  1  m  ode  1  e  d  u  s  1  g  T  h  £ 


'  ar  e  nee  s  •■=  =■  ar 1  .•  ♦  0  p r  o •  •  1  d e  f  o r  the  simple  1  n p u ♦ 


'  he  d e  s  ■:  r  1  p t  1  ■  •  e 


(?> 
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3320  PRINT 

3330  PRINT  "  Nher.  BOARDS  is  loaded  using  opt  ion  #i  in  A  u  T  0 ;  T  a  control  pi 
ram* ter  is" 

3340  PRINT  "  assigned  w  h  i  *:  h  causes  the  program  to  begin  at  the  section  which  a*  hi 
for  the" 

3350  PRINT  "geometric  parameters  of  the  bare  circuit  board.  You  will  be  as  led  ’ 
o  enter  the" 

3360  PRINT  "length  of  the  board  in  millimeters.  Enter  the  length  using  either  * 
he  number" 


3370  PRINT 

'pad  It  the  fa-  r 

ksvs" 

3330  PRINT 

"followed  by  ■ he 

ttom  of  the 

" 

3330  PRINT 

" s  c r e  c  n  while  the 

at  1 y  be  1 ow  “ 

3400  PRINT 

"the  instructions 

Key  and" 

3410  PRINT  "check  the  ua’ues  o 
the  program" 

3420  PRINT  "vill  ask  the  quest 
onduc t 1 v 1  t  y ,  " 

3430  PRINT  "number  of  regions 
the  'Y'  " 

3440  PRINT  " d i re : ♦ i on  have  bee 
than  50  " 

3450  PRINT  "  :  har  ac  t  er  s  “■  desert 
at  a  set  for" 

3460  F'PInT  "*he  circui*  board 

pies  ar  e :  " 


•i  s  u  e  r  each  q  u  e  =  t  i  o  n  r  e  m  e  m  ben  n  g  t  u  s  e  t  r,  e  C  0  N  T 
>*t  the  screen.  If  a  mi  stale  is  made  press  K®  and 
:>  n  again.  After  the  1  e  n  g  th,  he  i  gh  t  ,  t  h  iciness,  •: 
r<  the  X '  direction  and  t. he  number  of  regions  in 
entered,  the  p'lgram  gi  1  1  ask  for  a  she*'*  less 
♦  i  ve  title.  Th  i  s  title  will  become  p  ar  *  of  ♦  >'■  e  d 
nd  '.nil  be  used  to  ident:  ■  *  he  output.  T  ",*o  e  am 


I1  E  :  C  R  I  R  T  I  ‘  -  E 


3470  PRINT 

3430  PRINT  SPAt  ?  i  ,  "TETT  B_jA R&  p'.-p  PP.'.’E-IT  _FP  *  T  i  o 

#  1  2  34 . 3 A 
3430  El ank i =  0 

3500  IF  P-16  T-iEN  GOiUE  c‘  age  c  r  t 
3510  IF  P  =  0  THEN  Pc'  I  NT 

3520  PRINT  "  The  screen  will  now  shift  from  the  a  1  p  r  a  mode  *  o  the  graphics  m 
de  and  draw" 


3530  PRINT  "an  empt"  board  with  ♦he  imaginary  regions  marked  off  with  dotted  1  " 
es .  This" 

3540  PRINT  “picture  will  remain  on  the  screen  for  only  ?  sec  after  it  is  drawn  t 
u t  it  may" 

3550  PRINT  "be  returned  to  the  s:*-=e-  using  1-2  to  allow  funner  time  for  check 

i  n  g .  " 

3560  PRINT  "hi  will  return  the  :Crt  .  n  to  the  alpha  mode  for  trie  ne  *  section," 
3570  IF  P=0  THEN  PRINT 

3530  PRINT  "  The  special  function  keys  will  now  be  used  T  :•  input  the  cent  entr 
of  *  ac  h  of" 

3530  PRINT  "the  regions  defined  on  the  blank  board'.  This  is  the  last  chance  fo 
us*  the  " 

3600  PRINT  "Back -up  option  (M3.'  if  th*  board  is  not  correct.  A  new  Key  code  o  •  • « 
r 1  ay  will" 

3610  PRINT  "be  provided  if  necessarv  and  wus*  replace  f  he  general  purpose  o"?r  1  : 
y  on  the" 

3620  PRINT  "keyboard,  The  keys  defined  in  this  s  e  :  ♦  i  c  n  a:f  as  priority  mterrup 
t  s  and  will" 

3630  PRINT  “a’  low  ♦  he  screen  to  remain  in  the  graphics  mode  as  the  component  j  at 

*  defined." 

3640  PRINT  "A  flashing  cross  Mill  mo"*  to  each  region  in  suiessior  and  wait  for 

a  valid" 
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3650  PRINT  "kev  to  be  pre  =  *ed.  Every  region  must  be  defined  even  it  emptv.  It 

1  s  " 

3660  PRINT  “important  to  wait  for  the  cursor  to  move  to  the  ne  t  empty  region  be 
fore  keys" 

3670  PRINT  "are  pressed.  The  baci-*.«p  option  will  HOT  r  i  while  defining  comp 

orients  but" 

3680  PRINT  "there  will  be  an  opportunity  to  make  cornet  ions  in  the  n  e.  ■  t  section 

3630  PRINT  "lihen  all  regions  have  been  defined,  the  screen  Mill  return  to  the  al 
pha  mode  to" 

37O0  PRINT  "  as  k  if  there  are  any  correct  ions.  At  this  print  k2  will  return  the 
graph i  c  s  " 

3710  PRINT  "to  the  screen  and  kl  will  return  the  alpha  mode  to  the  screen." 

3728  Blanki*0 

3730  IF  P=  1 6  Then  u 0 U B  Pagecrt 
3740  PRINT 

3750  PRINT  " T c  make  corrections,  the  numbers  of  ALL  incorrect  regions  are  ente 
red  and  the" 

3760  PRINT  “components  erased.  When  there  are  no  more  • :  be  removed,  pressing 
COMT  with" 

3770  PRINT  "no  entry  will  allow  all  empty  regions  to  be  redefined.  A  flashing  c 
ross  will" 

3780  PRINT  "visit  each  empty  region  followed  bv  further  correction  oppertunit  •  a 

s  needed." 

3790  PRINT  "Uher,  the  board  is  correct,  the  general  purpese  key  d«ft  in:  t  ions  are 
returned " 

3800  PRINT  "  ar  d  the  normal  kev  code  overlay  should  be  rep’aced.  " 

3310  PRINT 
3820  P age n urn =2 
3330  B 1 ank  s  =  l  1 

3840  IF  P  =  0  THEN  83:-UB  Pageprt 

3850  PRINT  "  DIP  components  generally  are  produced  in  two  different,  case  s  *  v  1 
es,  ceramic" 

3860  PRINT  "or  plastic.  These  are  different  sizes  and  this  affects  the  t  n  e  •*  m  a 1 
analysis " 

3870  PRINT  "performed  in  T  H  E  P  m  L  .  The  ne\t  section  provides  =  e  11  e  *'a  1  me*  h  cos  T  c 
specifv  the" 

3880  PRINT  'case  styles  for  the  DIP'S.  These  are:  1  all  p  !  as  t  i  •: .  .  .  2  >  all  ceram 

i  c  .  .  .  " 

3890  PRINT  "  3  '>  majority  ceramic  •  user  specifv  which  are  p  1  as  t  i  c  >  .  .  .  4  >  major  i  tv*  c 
erarnic  <user" 

3988  PRINT  "specif  y  v  h  i  :  h  ar  e  ceramic;...  5  >  u  s  e  r  s  p  e  ■:  i  f  y  case  s  t  y  1  e  f  r  e  ac  hi  I*  I  P 
c  omp onent .  " 

3910  PRINT  "In  general,  option  3  or  4  require  the  user  to  input  the  number  of  re 
gi ons  that " 

3920  PRINT  "are  either  plastic  or  ceramic  and  are  useful  f r  specifying  the  styl 
e  when" 

3930  PRINT  "when  only  a  few  are  different.  When  there  is  a  nearly  equal  mi  t  op 
X i on  5" 

3940  PRINT  "requires  a  1  for  plastic  style  and  a  O  for  ceramic  style.  After  al ’ 
DIP'S  are" 

3950  PRINT  "specified,  a  list  of  region  numbers  is  displayed  on  the  screen  ( i  r, 
alpha  mode;" 

3960  PRINT  "with  the  plastic  cases  in  inverse  video  <numbers  black  on  light  bac^ 
round >  and" 

3970  PRINT  "ceramic  cases  in  normal  video.  Correct  as  needeo  and  again  no  corre 
c  t i ons  is" 

3980  PRINT  "indicated  by  pressing  CONT  key  with  no  entry," 
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3990  IF  P=0  THEN  4040 

400O  Blip  "PRESS  COHT  ..'HEN  REA*"/  FOP  ANOTHER  PAGE  OF  INSTRUCTIONS" 

4010  PRINT  LIN<2> 

4020  PAUSE 
4030  GOTO  4050 
4040  PRINT 

405-0  PRINT  "  The  n§-  l  section  concerns  the  *  hern,  al  1  y  conducti"*  piths  rhji  ar 
e  added  " 

40EO  PRINT  “to  the  circuit  board.  Both  the  electrical  conductors  and  a ny  therms 
1  conduc  t ion" 

4070  PRINT  "paths  or  rails  util  transfer  heat  between  regions.  When  any  conduc* 
i  on  " 

4080  PRINT  'rails  are  present,  the  effects  of  'he  electrical  leads  will  t-e  negli 
gable  and" 

4090  PRINT  "ignored.  To  aid  i  r.  t ne  mode  1  ing  of  'he  conduction  rai  is  it  is  neces 
tary  to" 

4I00  PFlNT  "introduce  *he  concept  of  a  Conduction  Path  Unit  -CPU1.  Each  of  'he 
rai Is  is" 

4110  PRINT  "modeled  as  containing  an  integer  number  CPU’s.  The  width  of  a  CPU  i 
s  defined  " 

4120  PRINT  "to  be  .1  mm  -ih  i  1  e  the  user  must  define  'he  thickness  (mm)  and  therm  a 

1  “ 

4  130  PRINT  “conductivity  (Watts  N-C)  of  the  material  that  forms  the  conduct  ion  r 
ails." 

4140  PRINT  "The  thermal  conductivities  of  several  aluminum  alloys  and  copper  are 
presented" 

4150  PRINT  “to  aid  'he  user.  If  there  are  no  conduction  rails  present,  the  e'e: 
t  r  i  c  al  1  e  ad  " 

4 1 1-30  PRINT  "descr  i  pt  '  or,  is  entered  in  the  much  the  same  w  at  S  thickness  ave 

rage  width" 

4170  PRINT  “‘Md  and  the  conductivity  'Wat's. M-Ct.  This  will  default  to  384  Ua' 
tsm-C,  the" 

4  130  PRINT  "•  alue  for  copper.  This  is  the  most  oornmom  material  for  'races  on  cir 
cuit  boards." 

4190  IF  p=0  THEN  4240 
4200  PRINT  LIN* 2  • 

4210  DI3P  “PRESS  CUNT  WHEN  R£SBY  F0P  ANOTHER  PAGE  OF  INSTRUCTIONS" 

4220  PAUSE 
4230  GOTO  4250 
4240  PRINT 

4250  PRINT  "  In  the  ne**  section  the  numbers  of  leads  or  rPU's  that  cross  the 
interior" 

42C0  PRINT  “boundaries  between  regions  are  entered.  The  display  will  alternate 

between" 

4270  PRINT  "the  graphics  and  the  alpha  mode  with  the  flashing  cross  or  cursor  mo 
wing  to  the" 

4280  PRINT  "appropriate  location  on  the  board  to  be  defined.  The  graphics  will 

remain  on" 

4290  PRINT  “the  screen  for  two  seconds  and  then  return  *o  the  alpha  mode  for  an 
i npul  line." 

4300  PRINT  "It  will  ask  for  the  input  of  thf  number  of  lead*  or  CFij  =  between  tu 
o  spec i fie" 

4310  PRINT  "regions;  u  if  the  conduction  rail  i  :•  €.?  run  M'.de,  t.  he**-*  ire  CPU 
s  in  that" 

4320  PRINT  “path.  Special  function  keu  3  M-3>  nay  be  used  to  dump  the  or  apn  > : i 

to  the" 

4330  PRINT  "printer  for  a  hard  copy  of  the  graphic  a  picture.  It  15  i  toper* an*  *  :• 
ac  c  ount " 
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4340  PRINT  1 

"  f  or 

the 

1  e  ads  on 

both  side 

s  of  the  Cl 

r  c  u  i » 

bo  ar  d 

«.»he  n  er>f  er  ' 

i  ng  rhis 

number . " 
4350  PRINT 

"Ps 

bet’  or 

e  foil ou 

all  e  n  t  r i 

e  s  c.»  i  t  h  r,  h  e 

CONT 

V  e  . 

Bee  ause  of 

the  pr 

ogram  f  1  ou " 
4360  PRINT 

"  i  n 

»his 

sect i on, 

the  B  ac  k  _ 

up  option  t. 

k  0  >  y  1 

11  not 

f  u n  c  t  ion. 

Bo  not 

attempt  to" 
4370  PRINT  ' 

"  lit  ai 

e  •:  o  r 

r e  c  t ions 

Or  return 

t  *:•  a  p  r  e  •  •  i 

o  us  ■  e 

<:  t  i  o  n 

until  after 

'  all  ent 

rus  hiv«" 

4330  PRINT  "bisii  mads.  fill  corrections  will  be  mads  in  th*  fi*/*  section." 

4390  PRINT 

4400  PRINT  "  In  the  thermal  model  used  t""  the  ThERNELE:.'  cstem,  all  heat  is  t 
ransfered" 

4410  PRINT  "to  the  cooling  air  stream.  None  of  the  he  a’  is  transferred  out  'he 
edges  of" 

4430  PRINT  “the  circuit  board.  For  this  reason,  • he  sides  of  the  regions  at  the 
edges  “ 

4430  PRINT  ''ml!  be  labeled  mth  O  to  indicate  'hat  no  leads  or  CPU's  cross  this 
boundary . “ 

4440  PRINT  "llhen  this  heat  loss  from  the  board  edges  and  connector  is  reflected, 
the  results" 

4450  PRINT  "will  be  eons e r" at i oe .  These  assumptions  mao  be  unacceptable  for  cir 
cuit  boards" 

4460  PRINT  “used  in  installations  '-here  a  significant  fraction  of  the  *  :••  a!  heat 
dissipated" 

4470  PRINT  "is  conduced  au  a  '  ••or,,  the  board  tivough  card  guides  or  connectors." 
4430  PRINT 
4490  Page num* 3 
450O  Blanks** 

4510  IF  P  =  0  THEN  CC'JUI:  Pagepr* 

4530  PRINT  "  Nheri  all  regicrs  ban  been  specified,  t  he  screen  til!  return  'o 

the  alpha" 

4530  PRINT  "mode  and  ask  if  an"  corrections  are  needed.  Use  'he  special  functio¬ 
ns  keys" 

4540  FRIHT  "as  reguired  <«  either  return  to  gr aph i c s  '  a! ph a  or  produce  a  hard  ccp 
y .  Enter” 

4550  PRINT  "the  numbers  of  the  connecting  regions  t - a*  have  incorrec  --alues  for 
the  numbers  " 

4560  PRINT  "of  leads  or  CPU's.  Ps  before,  COnT  .nth  no  ent>"-  signals  the  'act 
of  further" 

4570  PRINT  "corrections,  The  physical  description  of  the  circuit  board  is  no--'  c 
ompl ete .  “ 

4530  PRINT  "fill  that  remains  is  to  specify  either  the  component  power  levels  1  i-1  a 
US)  or  the" 

4590  PRINT  "junction  t e mper at  or es  for  each  component." 

4600  PRINT 

4610  PRINT  "  When  the  r»  ax  1  nn,m  junction  t  « mpe  *'  a*  s  for  t  he  c  ompone  nt  *  are  sp 
cc i f i ed ,  " 

4620  PRINT  "the  m  a  *  i  m  u  m  steady  state  pC'-^r  le’-el  that  Mil1  result  in  that  t  e  mp  e  r 
ature  is" 

4630  PRINT  "calculated  for  each  component.  When  the  stead"  state  po>><er  c  f  each 
c  opponent  M 

4640  PRINT  "is  specified,  the  stead1/  state  junction  temperatures  are  ■:  a  1  c  u  1  af  e  d . 

M 

4650  PRINT  "In  either  situation  it  is  also  n  e  c  e  s  s  ar  y  to  s  »  e  c  i  f  v  the  case  t  o  ;  u  n  c 
t  i  on" 

4660  PRINT  "thermal  resistance  Pj_c  <  D  •=  *3  C  N  at  t  The  thermal  model  uses  the  co 

mponent " 

4670  PRINT  "surface  temperatures  for  bea*  trans*'***  c  a  1  :  u  f  a*  i  ons  ard  p  j_/:  provide 
s  the  1  ink " 
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4680  PRINT  "bitwesn  »  he  c  or.ipone  n*  power,  jure*  ion  t  empe  r  a*.  ur«  and  t  he  surface  t 
mper  at  uri .  " 

4690  PRINT  “If  Rj_c  ’i  specified  as  zero  ‘O'1  then  t  he  ciie'  surface  t  emper  a»  wr  e 
ill  be  “ 

4700  PRINT  "equal  to  the  junction  t  e  mper  at  ur  e  .  " 

4710  PRINT 

4720  PRINT  "  rtf  ter  all  component  power  levels  r  junct  ion  t « ripe  r  at  ur  e  5  ha  e 
een  set  , " 

4730  PRINT  “the  complete  list  is  displaced  in  •  he  aloha  node  to  allow  check’ n.j 
nd" 

4740  PRINT  “changes.  Corrections  are  inserted  b  ■  enter  ing  *  he  incorrect  region 

number  then" 

4750  PRINT  "entering  the  correct  values  in  respence  to  the  guest ion  as!  ed*  It 
e  s  i  r  e  d  " 

4  760  PRINT  “a  hard  copv  of  all  data  for  the  circuit  board  '-<>11  (:<  provided  t'r  y.i 
the  printer." 

4770  PRINT 

4730  PRINT  "  The  next,  section  allows  recording  of  the  :  '  ••  :  ui  t  board  descrM.-t 
ve  dat  a  " 

4790  PRINT  "on  to  a  mass  storage  media.  This  should  be  acne.  The  reesrded  daf 
file  m  ay  be" 

4800  PRINT  "accessed  at  some  later  1 1  me  either  in  E  0  rt  P  I- 1  *  or  editing  an  d  char  a 

es  or" 

4310  P  R  I N  T  "  d  i  r  e  C  t  1  y  in  T  H  £  P  m  l  to  pert  o  r  m  f  h  e  thermal  an  a  ■  v  5  i  s  .  E  0  rt  P  I; *•  i  1  ’ 
create  the  " 

4820  PRINT  "the  nee  ess  arv  data  file  to  record  the  description  but  if  a  data  f  i  1 
of " 

4830  PRINT  "sufficient,  size  exists*  it  r.<  av  be  used.  PI  l  :■  1  d  data  1  n  tr.at  Mi 
ill- 

4340  PRINT  "be  permanently  lost.  Information  concerning  t re  minimum  data  file 
ize  is" 

4858  PRINT  "presented  by  the  program  to  help  in  this  decision.  " 

4860  PRINT 

4378  PRINT  “  Built  i n  error  traps  t hrougnout  the  ent*re  ’nEPMELEV  system  m' 
save  the  “ 

4330  PRINT  "user  from  loss  of  previous  inputs  in  case  of  errors.  Information  a 
out  the" 

4390  PRINT  "error  is  presented  and  using  the  error  message  guide  on  The  o 1  as • i c 
slide  outs" 

49O0  PRINT  "below  the  screen,  the  user  may  be  able  to  make  •:  dr  r  ec  t  i  ons .  When  r 

ady,  as" 

4910  PRINT  "signaled  by  CONT  key,  program  flow  returns  to  a  previous  point  and 
ope  r  at i on " 

4920  PRINT  "resumes.  The  data  recording  section  where  file  names  are  entered  is 
p  ar  t  i  c  u  1  ar  1  y  " 

4930  PRINT  "prone  to  s  p  el  1  ing  errors  or'  e  n  t  r  •  -  o  f  i  n  •;  o  r  r  e  c  t  mass  s  t  rage  u  nit  =  p 

c i f i ers . " 

4940  PRINT  "Be  careful  but  remember  th  system  will  attempt  to  catch  those  ine.i 
able  errors" 

4950  PRINT  "and  act  on  them  before  they  tec  erne  fatal." 

4960  PRINT 

4970  PRINT  "  The  end  of  a  cycle  through  B  0  ft  P  D is  now  complete.  rts  T  he  page 
he  ad i ng" 

4930  PRINT  "that  util  appear  states,  WHrtT  NON  **.  More  work  with  B  0  rt  P  D :  is  pos 

s i b 1 e .  The " 

4990  PRINT  "user  m av  either  input  another  circuit  board  description  from  • he  l  e 
board  and" 

5OO0  PRINT  "record  that  to  mass  storage;  or,  ne  wav  retrieve  a  different  c i r c u ’ ‘ 
board" 
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5010  PRINT  “descriptive  data  :e'  t'  r  t.i  mass  storage  for  •:  hi  •:  *  t  ng  and  c  orr  t  c  '  i  ons  . 


5020  PRINT  "Another  option  is  »o  perform  the  thermal  anal  "i  i  ■  of  the  circuit  boa 
rd  using" 

5030  PRINT  “the  third  program  in  the  THERttELEN  system,  THERNb. " 

5040  PRINT 
5050  Pagenum*4 
5030  B  I  ark  a*® 

5070  IF  P  =  0  THEN  uOE'JE  Pageprt 

5030  PRINT  “  Before  an  e plan  a*  ion  of  the  prog- am  tie.  •  n  THERHL .  acme  e  pi 
anation  of" 

5030  PRINT  "the  use  of  B  0  P  R  T  3  to  edit  previous."  recorded  data  filea  la  in  ora 
er .  This" 

5100  PRINT  "apt  i  -  o  ii  a*  •  be  acoeaed  through'  me  use  of  Hu  T  j T  aa  e  plained  on  '  n 
e  first  page” 

5110  PRINT  "of  there  instruct  ion:  or  ihe  E  0  HR£ j  program  mao  be  directly  ent ere 
d  into  the” 

5130  PRINT  "computer  „n*r,  the  command:  LOAD  "  ;  CHR  S  •'  34  • ;  “  BOHR  3?  :  T 1  5  .  I  ' ;  3  t-R  | .  J 

4  >  ;  "  then  tress  E .  I E  C  0  T  E  ' 

5130  PRINT 

5140  PRINT  "Of  course  the  appropriate  mass  storage  specifier  should  be  used  bo’h 
here  and" 

5150  PPIfIT  "unen  entering  the  file  name  for  atvt  pre*  •  i  oua  1 1 

ee  the  “ 

5130  PRINT  "Oper  a'  i  ng  and  Programming  'I  anti  a 

ear.  " 

5130  PRINT 

5130  PRINT  "  Foil  O'.,  i  ng  the  inpu*  of  the  f 

e  dat  a.  " 

5130  PRINT  "t.e  data  file  will  be  read  and  all  the 
et  from" 

5200  PRINT  "the  keyboard  ..ill  be  defined, 
e  screen" 


5210 

PRINT 

"  i  r 

graphics  a.ode 

t  h  e  r 

eg  i  ons 

" 

5220 

PRINT 

"  'ir  a1. 

-  be  r..  ade.  H ■:•••-*. 

g  l  ons 

i  n  “ 

5230 

PRINT 

"an  'v 

1  1  '  -a1,'  »  T  h  1  =  fiT  i 

rd  i nput .  ” 
5240  PRINT  “C 
PU's  “ 

5250  PRINT  "t 
rcuit  board” 
5230  PRINT  ”C 
the  leads" 
52F0  PRINT  ”c 
uels, “ 

5230  PRINT  ", 
sented" 

5290  PRINT  ”f 
at  a  set  may" 


5310  PRINT 
5320  PRINT 
system.  ” 
5330  PRINT 
rmine  the" 
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5340  PRINT  "  ji  eidy  s'ate  jurist’ on  ’tinpiraturi  ■  ie  component  power  1  e  ve  1  s  are  sp 
cif ltd). ‘ 

5350  PRINT  “  QEMO-P  ;-iu  jmi  a  difftrtnt  circuit  board  for  uhich  marinium  powers 
levels  are  •• 

5360  PPINT  ’deiirmried  in  >he  thermal  anal'.'-i  j.  The  use  of  either  of  these  car, 
be  helpful" 

5370  PRINT  “to  f  sin  I  i  an  :s  the  user  u  i  '  h  bo’h  ■  QflPDS  arid  ’he  las’  program  in  ’ 

he  THEPELE.l  “ 

5330  PRINT  “system,  T HEPML ■ “ 

5330  PRINT 

5400  PRINT  “  THEPML  creates  the  m  a'  he  n.  a’  i  •:  a  1  model,  performs  the  anal  sis  of 
the  circuit" 

5410  PRINT  “board  and  produced  the  output.  The  variables  used  in  *  he  thermal  m 
del  are  set ■ 

5420  PRINT  “using  either  a  data  file  from  mass  storage  or  they  are  passed  in  a 
o  nun  on  block" 

5430  PPINT  "tehee-  TM£SML  ’S  loaded  from  :■  0  A  F:  I-  ■  There  are  no  correction  oppo 

rtunities" 

5440  PRINT  “for  the  circuit  board  de  s  c '  '  pi  i  •  -e  a-  tables  -n  this  program." 

5450  PRINT 

5460  PPINT  "  Assuming  that  THEPML.  has  been  loaded  from  *  -■  s  Uhat  No-1  -opt  ion 
list  in  “ 

5470  PRINT  “  l  '.'At  I't ,  the  first  input  is  the  inle*  temper  at  ure^deg  C  of  'he  :  :  c 
ling  air." 

5430  PRINT  “After  this  is  entered  and  printed  on  the  screen,  'he  volumetric  a-r 
f  1  ow  “ 

5490  PRINT  "ra'e  ■  H^Vsec'1  is  requested.  Since  the  same  se’  of  general  purpose 
spec i a!" 

5500  PRINT  "function  keys  are  --alid  ’n  this  program,  ’he  ke-code  over  la.-  should 

remain  and" 

5510  PRINT  “to  -  Back-up-  be  used  to  return  to  a  pre--ious  question  -.lien  n-.t-j 

errors  are" 

5530  PRINT  “male.  The  re  ’  input  is  the  spac'ng  be*  ve»r  ’he  circuit  boards  for 
rack  mourTts." 

5530  PRINT  'This  spacing  and  the  board  height  de  t  erm  l  r,e  s  ’hie  sire  of  ’he  imwag-. 
ary  air  duct" 

5540  PRINT  "containing  the  circuit,  board.  l-lhen  conibir.ed  ii'h  the  amount  :  f  at-- 
flou  for" 

5550  PPINT  "each  circuit  board  me  air  velocity  and  he  a’  transfer  csrrela’iors 


5560  PRINT  "determined.  Since  all  the  pettier  dissipated  on  the  circuit  board  my 

t  be " 

5570  PRINT  “re  moved  bv  the  air  flow,  it  is  important  for  tnese  '  slues  to  t-e  as 
r  e  c i se" 

5530  PRINT  "as  possible.  After  the  thermal  analysis  is  complete,  there  mill  t-e 
opp-ort  tin  1 1  s  ;  " 

5530  PPINT  "’o  al’er  ’hese  important  air  flow  p-at  am  ter  s  and  e  amine  »  he  effects 
on  the" 

5600  PRINT  "output." 

5610  PRINT 
5620  Pag  e  i .  u  ii.  “  5- 
5630  Blank s=6 


5640  IP  P=0  THEN  ZOiJi  Pageprt 

5650  PRINT  "  E-.fore  i  ne  ana’  -sis  begins,  the  converge  r  c  e  criteria  must  t-e  :e 

.  The" 

5660  PRINT  "analysis  consists  of  assuming  a  solution  then  defitvng  a  se’  o’  sin 

t  aneous " 

5670  PPINT  "equations  -one  for  each  regions  which  are  sol’-ed  for  either  the  p-ou 
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5680  PRINT 
ous  rsiuli 
5690  PRINT 
f  er  enc  e " 
5700  PRINT 
u 1 t  s  a re" 
5710  PRINT 
re suits" 
5720  PRINT 
t  e  r  e  d .  " 

5730  PRINT 
proc  6  2  4“ 
5740  PRINT 
W  change 
5750  PRINT 
*t.  Each" 
5-760  PRINT 
regiona.  " 
5770  PRINT 
to  w  at  c  h  ” 
5730  .PRINT 
5730  PRINT 
5800  PRINT 
d  with" 
5310  PRINT 
evel  and" 
5300  PRINT 
circuit “ 
5330  PRINT 
£e  power" 
5340  PRINT 
42  trouble 
5350  PRINT 
t  o  i nsur  e " 
5860  PRINT 
5370  PRINT 
5830  PRINT 
5  Whit  Now 
5830  PRINT 
rd  or” 

5900  PRINT 
board" 

5910  PRINT 
oard" 

5920  PRINT 


or  i  Pie  junction  temperature*.  The  result* 
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5930  PRINT 

5940  PRINT  "  fln  additional  option  is  sens  i  t  i  'N  tv  ar.alvsis.  Flo’s  of  t  P.  e  s.  a  1 
mum  " 

5950  PRINT  "Tjutic  vs.  flir  Flow  Rate  or  the  minimum  Power  "s.  Mir  F’ow  Pa’e  m  »• 
e  pr  oduc  e  d ,  " 

5960  PRINT  "fl  maximum  air  flow  rate  is  specified  and  fi-e  separate  anali'ses  are 
per  formed" 

5970  PRINT  "and  the  results  plotted  and  dumped  to  the  pt  wit  tr.  The  ma 1  *■  ww  air 
f  I  ow  r  at  e  ” 

5930  PRINT  "specified  should  t-e  an  integer  multiple  cf  fve  'o  mite  for  be’’e>'  1 

00k 1 ng  ares •  " 

5930  PRINT  “It.  14  also  possible  to  produce  hard  cop.s  of  •  P-e  printed  results  •  :r 
each  of  the” 
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.  .  drived  f of  thep:iele:< 


6000  PRINT  "air  flow  rate!.  Upon  completion  of  t  h  1  s  *e  ns  i  t  \  o  \  t  ,■  irilvii  j,  p  r  -■  g  r 
am  flow" 

6010  PRINT  "returns  to  the  option  list  pr  *•- 1  ous  1  •*  -ducusHd.  " 

60L0  PRINT 

6030  PRINT  "  Termir.it  >  on  shou’d  be  done  under  pr  oor  an.  control  u  *  i  r.  z  the  final 
opt \ on. " 

6040  PRINT  "This  will  insure  t  h »»  the  standard  ^ ey  definitions  are  returned  and 
that  the" 

6050  PRINT  “proper  graphics  parameters  are  at*  for  the  ne  *  user  c  t  tr.<  computer 

6060  PRINT  L I N  <  2  ; , Th£ \ 32  • , "GOOD  LUCK" 

607O  P*g*num=6 
6030  B  1  anlc  s  *  1  6 

6030  IF  F=o  TmEn  uO’iuB  P a-jeprt 
6100  PRINTER  13  16 
6110  RETURN 


93 


■16' 


P PEND IX  C 


O 

10 
15 
20 
2  5 
30 
35 
40 
45 
50 
55 
60 
65 
70 
75 
SO 
65 
90 
95 
100 
105 
110 
115 
120 
125 
1  30 
1  35 
140 
145 
150 


!  E'OARIiS  .  2ATA  I  r.F'.'T  A;*I  :Tlcn3£  F-C3=AM  F 

i 

i  **♦■*******-.*♦*-»*■•*---..•  T  H  E  R  f E E  ■**♦*■*.♦*■*■»-■** 

i 

1  A  SYSTEM  OF  PROGRAM1:  FvR  3 h £  *i p  r  :■  4 5 

I 

!  TO  PERFORM  THERMAL  PfiliL  '  :  I  :■  O'F  ELECTRONIC  _  1  -  -  .  I  T  z  r 

I 

!  * 
t  * 

I  *  PPEF  ARED  at  the  Nh'.'hL  c  0E  TOPhO'.iP'E  : n 0 0 L  MOtlTERE 

i  ♦ 

i  *  R.  A.  FOLTZ  lCI'R  UiN 

I  * 

1  *  HIM  boar:,-:  Mill  - 

I 

OPTION  £h : c  1 
PRINTER  IS  1 F 

COM  M  ap  ,  N  am*  f  ,  -  ’  c  *  lb’  l  Z  50  I « 'I  ae  e  *  C  50  ] ,  I  1 1  .  Bdh  .  a,  T  hi  : »  _b  .  Te  m_ 
COM  iH>:  ?  7  : :  TO  1 4  ■  -50  ,  T • TO  • . P  :  •  TO  50  * 

COM  INTEGER  I »  •  p  e  T 0  .• «  N  1  4  ,  T  0  * ,  M  •  r  ,  r 1 y  r  ,  Nr  e  <3 
SHORT  L*< 50 ^ ,  VU  ■  TO  • 

INTEGER  Npm-50- 

dim  s$c?o] * Msj* f cib: 

IF  Map* 0  ThEh  ;t  af» 

S*  ar  t  _*•  ■*  :  ON  f  i  ap  GO  ’  j  *  1  i-,j  \  •:  t  or  r  *:i,  Bap  i  :  •  , D l dp  *  :  * 

D ISP  "  M  h  P  -  " ; M jo 
F  RUSE 


155  St  Art*:  COSUB  Err.^r 

ic*o  start:  s  t = ■*  the?  R’vrl  t}  1 1  pfogfhm  f  op  electronic  c  i  ~  s  'j  : T  bop 

l  E  5  ON  E  P P 0  :  G  j  T C  S f.  ar  t  <5 
170  GGSuB  Page- he  a  a 

175  PRINT  "  Thti  pr  :  gr  -.m  all-:  i  t  he  user  r  :■  tr.pu*  a  di».  ai  i  e  £ 

elect  r on  1 c " 

ISO  PRINT  "  •:  1  r  c  u  1  t-  t*  c  ar  d  an  a  p  *  r  ♦’  o  r  n»  a  t  h  *  r  v,  a  l  an  a  I  v  3  *  £  *  p  r  *  d  ’  : 
teady  state" 

1S5  PRINT  "temperatures  ■:•  t  t.  he  components  if  oo^er  1  e  els  are  '3*1 
onent  power" 

ISO  PRINT  "  i  e  •  e  1  that  u  1  1  1  re  it*  It  in  the  steady  s»a*-e  t.  c  ,-** -  r  at  ur  e 
the  u  £  e  r  .  " 

195  PRINT  "The  description  can  come  H'C-iti  a  da*  a  file  «:»’  e  1  :>u£  1 ;  •  c 
p  r  o  9  r  am  " 


200 

205 

PRINT  " or  c an 
Pn_-  l  =  "N " 

b*  tut  *  r  *  d  a»  ik  1  =  1 1  .  " 

210 

Anst 

INPUT  "  I'D  YOU 

IiEiIPE  TO  RETRIEVE  A  F  R  EV  I  I-uSL 

:  T 0 F’ E 2  JE-CRIFT 

215 

IF  An  •  4  = E  AC  t 

UP"  then  iso 

220 

225 

2  30 

IF  <  UPC  t  flr,i  f  [  1  ,  1  ]■*"  M"  •.  Oc'  ■  IjCCSi  Pni  f  c  1  ,  1  3  '  =  "• 
G 0 S U B  Err  1  n 

GOTO  Start 

THEN  BBT 

235 

240 

IF  U P C f  < m n s  f [ 
GOTO  0 1  d  p  1  •:  t 

1.13  ■  =  '•((  1  THEN  Eop  1  •:  * 

245 

01  dpi  ci*:  uOE.ij 

E  E  r  r  r 

250 

ICE 

0 1  d  p  1  •:  1  :  1  T  h  1 

I  :ECTI0n  RETRIE-E6  A  J-Qfls  D  BE»C« 

:f-  a 

255 

ON  ERROR  GOT 0 

0  1  dp  i  •:  t  e 

C  1  i 
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BOARDS  ..  DATA  INPUT  FOR  ThEPMELE:: 


320  PRINT  “with  on*  c  omponetit  -'r  eg  t  on .  Th*  circuit  board  ti  then  presented  Oh  th 

e  “ 

525  PRINT  “CRT  either  normal  ii:<  or  scaled  up  or  down  tv  joint  integer  it'  larger 
or  s»a1 1 *r “ 

330  PRINT  “than  120mm  by  170mm.  Th*  specific  component*  ar*  **l*ct*d  with  the  u* 

*r  keys" 

335  PRINT  “in  the  upper  right  corner  of  the  keyboard.  If  you  do  not  have  a  key 

cod*  “ 

340  PRINT  "overlay  for  th*  key*  the  program  will  provide  one  for  you.  Informat i 

on  to  b*“ 

545  PRINT  “used  in  th*  thermal  analyst*  routine  u  entered  in  this  section  of  th 
•  program. “ 

550  PRINT  “You  will  have  the  option  of  recording  » he  board  description  onto  mass 

storage. “ 

555  PRINT 

560  PRINT  “Conduc t i v i t y  of  the  board  will  default  to  . 2942  U at t */M-degK  with  no 
•ntry. “ 

565  PRINT  LINO  >  • "NOTE  1  LENGTH  IS  DEFINED  TO  BE  IN  THE  DIRECTION  OF  RIP  FLOW 

N 

370  MAT  Ityp*«2ER 
575  An*S«"NULL“ 

580  INPUT  “WHAT  IS  THE  LENGTH  OF  THE  BOARD  IN  M ILL  I  ME TERS” . AnsS 
585  IF  fin***' BACK  UP"  ThEN  Start 
590  IF  AnsS»“NULL~  THEN  575 
593  Bdl *ABS( VAL < Ans*  >  > 

600  PRINT  LINO),  TABOO).  “LENGTH  *  “  ;  Bd  t  ;  "  mm“ 

603  Seal  *:<»INT <Bdl  171)0 
610  IF  BdKl?l'2  then  Seal**-. 5 
615  AnsS*”NULL“ 

620  INPUT  “WHAT  IS  THE  HEIGHT  OP  THE  BOARD  IN  M  l  LL I  METERS  "  ,  Am  S 
625  IF  Ans*«“BACK  UP"  THEN  Bdpict 
630  IF  AnsS« “ NULL~  THEN  615 
635  Bdh*ABS <VAL<  Am  *  •  > 

640  PRINT  LIH>  1  >  ,  TAB'.  lO' ,  "HEIGHT  »“;Bdh;“  mm“ 

645  Sc  at  *V» INT  <  Bdh.  121)0 

650  IF  Bdh< 121-2  THEN  Scaley«.5 

655  Sca»MAXtSca1«w, Scale.,)  '  SCALE  FACTOR  TO  FILL  CRT  DISPLAY 
660  IP  Sc <31  THEN  680 

665  IF  Sca<l  THEN  PRINT  LIN12) , “ »***N0TEe**+  DUE  TO  SMALL  SIcE  OF  THE  BOA 

RD  CRT  DISPLAY  WILL  EE  2X  SITE" 

670  IF  Sca'l  THEN  PRINT  L  IN<  2  > ,  ”  ♦***N0TE*»*  *  DUE  TO  LA"GE  SIZE  OF  THE  BOA 

RD  CRT  DISPLAY  WILL  EE  1  -  "  ;  Sc  a; "SIZE" 

675  AnsS«”NULL“ 

680  INPUT  "WHAT  IS  THE  NUMBER  OF  DIVISIONS.  (REGIONS)  IN  THE  HORIZONTAL  DIPECTIO 

N" , AnsS 

683  IF  AnsS= “ BACK  UP"  THEN  615 
690  IF  AnsS=“NULL~  THEN  675 
695  Nxr»AB3(.VAL<  Ans*  1  > 

700  PRINT  LINO),TAB( 10),“*  Xreg  *“;Hxr 
703  Ans**“NULL“ 

710  INPUT  “WHAT  IS  THE  NUMBER  OF  DIVISIONS  (REGIONS)  IN  THE  VERTICAL  DIRECTION" 

,  AnsS 

713  IF  AnsS* “BACK  UP"  THEN  675 
720  IF  AnsS«"NULLT  THEN  705 
723  Nyr «AB$< VAL ( AnsS ) ) 

730  PRINT  LINO), TABOO),"#  Yreg  »“;Nvr 

733  Nr*g«Nxr*Nyr  •  Nreg  *  NUMBER  OF  REGIONS 

740  IF  Nreg<3l  THEN  770 
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743  BEEP 

730  PRINT  PAGE,  LINUSi ,  SPA<30> ,  “TOO  MANY'  REGION'S" 

755  WAIT  1000 
760  GOSUB  Errin 
765  GOTO  Bdpict 
770  An*** "NULL “ 

775  INPUT  "WHAT  I  S  THE  THICKNESS  OF  THE  BOARD An** 

730  IF  Ans**"BACK  UP"  THEN  703 
785  IF  Ans*» " NULL “  THEN  770 
790  Thict;  b*ABSCVAL<Ans*.' > 

795  PRINT- LIN<  1  >  ,  TAB'.  10) , “Thi ek  *";Thick_b;"  mm" 

800  An***" . 294i“ 

805  EDIT  "WHAT  IS  THE  THERMAL  CONDUCTIVITY  OF  THE  BOARD?  i WATT'S-- M  -d«g  K)“,Anj* 
810  IF  An*  ** " E ACK  UP"  THEN  755 
815  Kb*AB3( VAL< AnI* > > 

820  PRINT  L I N ( 1 ) , T AB < 1 0  ■ , “ Cond  B  *“;Kb 

825  EDIT  “INPUT  A  SHORT  ',<50  CHARACTERS)  WORD  DESCRIPTION  OF  THE  CIRCUIT  BOARD 

HERE  “,Pi«tlbl* 

830  IF  Piet lbl**“BACK  UP"  THEN  SCO 

835  IF  LEN<PiCt  IblD'.Sl  THEN  350 

840  GOSUB  Errin 

845  GOTO  825 

850  GOSUB  Board_ptct 

855  GOSUB  Craphk«y 

860  IF  Ans** “ BACK  UP"  THEN  Bdpict 

865  GOSUB  Bd  chi  ~ 

870  IF  An***- BACK_UP"  THEN  830 
875  GOSUB  Ca*«  t"p 
880  IF  An*** “BACK  UP"  THEN  365 
885  GOSUB  Laid* 

690  IF  An*** " BACK  UP"  THEN  375 

895  GOTO  435  -  1  END  OF  Bdpic* 

90O  Board  pie**:  GOSUB  Error 

905  Board- pi ct :  !  THIS  SECTION  PLACES  A  BLANK  BOARD  ON  THE  SCREEN 
910  ON  ERROR  GOTO  Board  pict* 

915  PLOTTER  IS  "GRAPHICS" 

920  GRAPHICS 
925  MSCALE  0, 10 
930  CSIZE  3 
935  LORG  5 
940  MOVE  26, 130 

945  LABEL  " - air  flow - >  " 

950  Bdh*Bdh'3ca 
955  Bdl*BdIrSca 
960  LORG  6 
965  LDIR  P I r2 
970  MOVE  173,70 

975  IF  Sea>l  THEN  LABEL  "THIS  PICTURE  IS  1  ”iVRL*VSc*>&"  SIZE" 

930  IF  Sca< 1  THEN  LABEL  "THIS  PICTURE  IS  2X  SIZE" 

985  LORG  5 
990  LDIR  0 

995  MOVE  92-LEN<Pietlbl*^2.  135 
10O0  LABEL  USING  "K“;Pictlbl* 

1005  MOVE  0,0 
1010  DRAW  0, Bdh 
1013  DRAW  Bd! , Bdh 
1020  DRAW  Bdl ,0 
1025  DRAW  0,0 


BOARDS  ..  DATA  INPUT  FOR  THERNELE'' 


1030  LIME  TYPE  3 

1035  Lr*MI  N  r  <  LR  *  LENGTH  OF  EACH  REGION 

1040  Hr»Bdh-  N’-r  •  HP  «  HEIGHT  OF  EACH  REGION 

1045  FOR  I»1  TO  N  r-1 

1050  MOVE  I *Lr , 0 

1055  DRAW  I *Lr , Bdh 

1060  NEXT  I 

10(55  FOR  I«1  TO  Nvr-1 

1070  MOVE  0,I*Hr 

1075  DRAW  Bdl,I»Hr 

1030  NEXT  I 

1085  LINE  TYPE  1 

1090  LGRG  5 

1095  Nr-0 

1100  FOR  J»N'r  TO  1  STEP  -1 

1105  FOR  I«i  TO  N-.r 

1110  Nr«Nr*l 

1115  X<Nr  ,«Lr-».  1-1  '*Lr  '2 

1120  Y(Nr  ■••<  J- 1  ■  *Hr  *•  1  *Hr  2  ■ 

1 1 25  MOVE  :< '  Hr  > ,  V  ■  Hr  ■ 

1130  LABEL  USING  "K"  1  VAl*’  Hr  j 

1135  NEXT  I 

1140  NEXT  J 
1145  Bdh»Bdh*8c  * 

1150  8dl»Bdl»Sci 
1155  WAIT  1500 
1160  EXIT  GRAPHICS 
1165  RETURN 

1170  Gr*phk«v*:  GOSUE  Error 

1175  Gr*phk«y: •  HERE  IS  SUBROUTINE  TO  ALLOW  INPUT  OF  BOARD  EECRIPTICN  FROM  KEYS 
SATA  INPUT 

1180  ON  ERROR  GOTO  Grtphk** 

1135  An*  *■“ Y “ 

1190  S*»"kEY  CODE  OVERLAY" 

1195  GOSUB  P*.j«h«»d 

1200  PRINT  "  Thi»  *«ction  tllcv*  th«  coi»pon*nt*  to  bt  defined  ind  lr»un  on  *h« 
*cr*«n" 

1205  PRINT  "uling  th*  k«y*  in  tb»  jpp*r  right  oorn«r  of  t h*  Hvbo*rJ,  Th*  pr*'.>i 
Out  k«y“ 

1210  PRINT  “d«fr  i  n  i ».  i  on*  ir«  no’  ut'id  whil*  «nt«rin’j  » h«  : mpon* nr  *  fry*  .jill 

b4“ 

1215  PRINT  "during  l»t*r  portion*  of  thi*  progrtin.  A*  th*  f1**hing  :ur*or  *o"tl 
to  ««ch* 

1220  PRINT  ”r«g  ion  in  nunirittl  ord*r  pr*i*  th*  c  or  **pond  i  r.  g  kt"  tnd  ui"  for  *h 
•  curtor  to" 

1225  PRINT  “»pp**r  »t  th*  n*.<t  r*gion.  All  r«jion*  mui*  b*  d«fin«d  *'<*n  if  u  i  ’  h 

kO«>EMPTY.  " 

1230  PRINT 

1235  PRINT  "  NOTE:  fc  1  l  —  kl4  r*t*r  to  chip  ctrntr*  or  f  I  »t  ptetj." 

1240  PRINT 

1245  PRINT  “  If  you  do  not  h»  *  »  pltj’ic  k«-  :od*  ctrli"  fill«d  in  'HP  py 
*7120-6164’,  I  util  mtk*  t  piptr  on*  for  "Ou. “ 

1250  An*  t«“M" 

1255  INPUT  "DO  YOU  NEED  A  PAPER  OVERLAY  iN  or  .  '""’.Anj* 

1260  IF  An*  *■  " EACf  UP"  THEN  RETURN 
1265  IF  UPC*' *ni#c7, II >«"N"  THEN  1320 
1270  PRINTER  IS  9 

1275  PRINT  SPA<  10.',  "TEAR  OFF  FOR  COMPONENT  DEFF  I  N  I  T  I  ON  ‘  E  .  CODE  OVEPlA , L I N ■ 2 

> 
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1230  PR JUT 
1285  PRINT 
BOVC  KEY?" 

1280  PRINT  “TERR  HERE 


BOARDS 

.  .  DATA 

INPUT  FOR 

THERMELEX 

I  EMPTY 

1  <kO  ‘ 

I  HOP  I Z 
|  DIP14 

I  VERT 
|  DIP14 

j  H0RI2  1 
1  DIP16  1 

!  VERT  1  H0RI2 
DIP16  |  DIP24 

1  VERT  1 ' 
DIP24  1 

PLACE  A 

-THEN  PRESS  CON 


1295  PRINT  LIMCt) 
1300  PROSE 
1305  PRINT 
BELOW  KEYS 


<k3)  |  NOR  1 2  |  VERT  |  FLRT  | 


|  D I  PRO  |  16  PIN 


1310 

PRINT  " 

1 

|  DIP40 

1315 

PRINT  L!N<4> 

1320 

PRINTER  IS 

16 

1325 

■  NOTE 

THAT  THE 

KEY  4  IS 

1330 

ON 

KEY 

40 

GOTO 

Empty 

1335 

ON 

KEY 

»t 

GOTO 

Hdi p  1 4 

1340 

ON 

KEY 

«2 

GOTO 

Vd  i  p  1 4 

1345 

ON 

KEY 

#3 

GOTO 

Hdi p  16 

1350 

ON 

KEY 

44 

GOTO 

Vd  t  p  1 6 

1355 

ON 

KEY 

#5 

GOTO 

Hdi p24 

1360 

ON 

KEY 

#6 

GOTO 

Vdi  p24 

1365 

ON 

KEY 

#7 

GOTO 

1435 

1370 

ON 

KEY 

43 

GOTO 

1435 

1375 

ON 

KEY 

49 

GOTO 

Hdi p40 

1380 

ON 

KEY 

410 

GOTO 

Vdi p40 

1385 

ON 

KEY 

411 

GOTO 

F  1  it  l  e 

1390 

ON 

KEY 

412 

GOTO 

FI  at 24 

1395 

ON 

KEY 

413 

GOTO 

FI  it 40 

1400 

ON 

KEY 

414 

GOTO 

F 1  it  64 

1405 

IF 

OldfPI 

THEN 

RETURN 

1410 

GRAPHICS 

1415 

FOR  1*1 

TO  Nr«g 

1420 

IF 

1 1  yp*  < I >  *  1 0 

1425 

Loop: 

MOVE  X  <  I  ,  Y  <  I  ) 

FLRT  |  FLRT  |  FLAT  |  PLACE 
24  P IN |  40  P I N |  64  PIN  |“ 


THE  CODE  FOR  TYPE  OF  ELEMENT  STORED  IN  Ityp *(I) 


1430 

1435 

1440 


1455 

1460 

1465 

1470 

1475 


POINTER  :;<!>, Y<I>, 2 

THIS  IS  AN  ENDLESS  LOOP  TO  ALLOW  FOR  USE  OF  THE  PRIORITY  INTTERUPT  KEYS 
GOTO  Loop 

1445  Nextr*.  IF  R*g_c ha<  > 0  THEN  RETURN 
1450  IF  lONrtg  THEN  1475 

IF  01d*OPt  THEN  WAIT  1  00*Nrf  g~  1 . 5 
POINTER  0.0,2 
EXIT  GRAPHICS 
RETURN 
NEXT  I 

1480  Empty: GOSUB  Erisenum 

1485  Ityp*<I)»Npin<I''*We<I;-«L«(I>«0 

1490  GOTO  N*xtr 

1495  Hdtpt4: GOSUB  Er  lignum 

1500  Np i n< I >*  14 

1505  IF  1 1 yp« < I > »2  THEN  LDIP  P 1 . 2 
1510  LABEL  USING  ”K";"DIP14" 

1515  W«<I>»W«*.25*25.4  !  ACTUAL  WIDTH  IN  n.n. 

1520  L«<I)»L«". 725*25. 4  !  ACTUAL  LENGTH  IN  mm 

1525  IF  (Itvpnl)«l<  OR  f  Ityp«<  I  >«0>  THEN  1545 

1530  T«mp_dt  m*We< I >  !  HERE  LENGTH  AND  WIDTH  TRANSPOSED  SUCH  THAT  LENGTH 

1535  M«< I~*W«»L« < I >  !  IS  DEFINED  TO  BE  IN  THE  DIRECTION  OF  AIR-FLOW 

1540  L*< I >»L« *T«mp  dim 
1545  IF  ltyp«M J«0_THEN  Ityp«<I>«l 

1550  Dr imdi p : 1  THIS  SECTION  WILL  DF AW  ALL  THE  DIP  FIGURES  ON  THE  CFT  IF  Npin-:28 
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BOftRPS  ..  DATA  INPUT  FOR  THEPMELE:: 


1555  Le-Le'Sc* 

1560  U*«M*'Sc» 

is«5  move  i  •-!!«  2 

1570  DRAM  X<  I>-Le  2,  VC  I  -■♦He  2 
1575  DRAW  X<  t>*Le  2.Y>  1  >*U*.  2 

1 5 so  draw  2.v-  i  >-w«  -  2 

1535  DRAM  X<I>-L*  2,va>-u*  2 
1590  LOIR  0 

1535  GOTO  Near  *  End  of  Dr»u_dip 

16O0  Vdi pl4: It yp*i I >*2 

1605  GOTO  Hdipl4 

1610  HdiplolGOSUB  Eru^nuu 

1615  Npin<I>*16 

1620  IF  Ityp«<I>*4  THEM  LDIP  PI  2 
1625  LABEL  USING  “ K " ;  “ 0 1 P 1 6 '' 

1630  We  < I >*W«  *.  25*25. 4  '  WIDTH  IN  mu, 

1635  Le < I >*Le*. 325*25. 4  ■  LENGTH  IN  mm 

1640  IF  1 1  ype*.  I  >*.  >4  THEM  Jtypet I>*3 
1645  IF  ltyp*<  I  .'4  THEN  Drawdip 
1650  Temp  dim*We<I> 

1655  Ut<I)*W«*LnT) 

1660  Le< I >*L**Temp_dtm 

1665  GOTO  ttriwdip  !  End  of  Hdipl6 

1670  Vdt  p  16:  Itype<.  I  >«4 

1675  COTO  Hdiple 

1630  Hdip24:G0SUB  Erticnum 

1635  Mpi  n< I  >*24 

1690  IF  It.  ype<  I  >*6  THEN  LDIP  PI--2 
1695  LABEL  USING  “  F  " ; “DIP  24“ 

1700  Ue< l )*Ue*. 55*25. 4 

1705  Lf ( I )*Le*  t . 25*25. 4 

1710  IF  I type  »  I  >  <  >6  THEN  Ityp«<|)«5 

1715  IF  Ityp*<I><>6  THEN  Drawdip 

1720  Temp  di m=W* < I > 

1725  We< l”*W*-Le< I > 

1730  Le< I >»Le*Temp_di  m 

1735  GOTO  Draudip  !  End  of  Hdip24 

1740  Vdip24:  It. '.'p*(  I  >«6 
1745  GOTO  Hd  t  p24 

1750  Hd i p40 : I F  ( I  MOB  Hxr=C>  OR  ( I t ype < I + l > ■ 1 0 >  AND  < Peg_c ha*0 >  THEN  Loop 

1755  GOSUB  Eratenum 

1760  I*!h*J*l 

1765  GOSUB  Erasers* 

1770  1*1-1 

1775  Npin<.  t)*Npin<Ih>*20  !  THIS  IS  FOR  EACH  HALF  OF  THE  40  PINS 
1780  I type< I >*!typ« < Ih>*9 
1735  MOVE  X<  I  >*Lr.'2,  Vt  I  > 

1790  LABEL  USING  “K" 5 “ DIP40" 

1795  Me< I >*Me < Ih >*M«*. 6*25. 4 

1800  L*<I>»L«' Ih>*L#*25.4  I  THIS  IS  FOR  EACH  HALF  IN  EACH  REGION 
1805  We*W*'Sca 
1810  Le*L*'Soa 

1815  MOVE  X<I>*Lrx2-Le,VU.'*Mex2 
1320  DRAM  Xf  I  >*Lr  '2-Le ,  Y<  I  )-We-'2 
1825  ORAM  X<  I  >*Lr'2*L* ,  Y<  I  )-We--2 
1838  DRAW  I  >*Lr-'2*Le ,  Y>  I  >*We  ■  2 
1835  DRAW  X<I?*Lr  2-Le, Y< I >*We- 2 
1840  J ■ Ih 


BOARDS  ..  DATA  INPUT  F OP  ThEFNELE:: 


1845  COTO  lU/tr 

1850  Vdip40:IF  I*N-.r'Nr«g  THEN  1425 
1855  GOSUB  Er»j*nu» 

I860  I ■ Ih» I ♦Nvr 
1855  COSUB  Erufiiuo 
1370  I*I-N<r 

1875  Npin<  I  >»Npi n<  lh'< >10  !  THIS  IS  FOR  THE  HALF  OF  THE  40  PIN$  IN  EACH  REGION 

1880  Ityp«<  I  )»Ityp*<.  Ih>«lO 

1885  LDIR  P I  -'2 

1890  MOVE  X<n,Y<.I>-Hr/-2 

1895  LABEL  USING  "K“; “BIP40“ 

1900  LOIR  0 

1905  M«< I >»W* » Ih ) =U«». 6*25 . 4 

1910  L*<  I  >*L4'.  Ih,=L*»25. 4  i  THIS  IS  FOR  HALF 
1915  W*«W*-Sc* 

1920  L#*L*'Sci 

1925  MOVE  X<li‘*We  2,Y<I>-Hr'2*L* 

1930  DRAW  .X<I)-U*  2,V<I>-Hr/2*L« 

1935  DRAW  X<l'-M«r2,Ya>-Hr'2-L« 

1940  DRAW  XU  >*W*.'2,Y<I>-Hr'2-Li 
1945  DRAW  !{(I)+«*.  2,VU)-Hr/2+t.* 

1950  LDIR  0 

1955  T«mp  d(m»Le< I >  ! HERE  TRANSPOSE  Li  AND  W*  TO  MAINTAIN  LENGTH  DECF  WITH  AIR 
1960  L»<l‘*L»'.Ih!*Wi<l> 

1965  W*<  I  )»W«  <  lh>*T«mp  dim 
1970  GOTO  N«:;tr 
1975  FI*t  161  It  yp«  '  I  •»ll 
1980  GOSUB  Erijem.m. 

1985  Np i n  <1 >  *  1 6 

1990  LABEL  USING  "K”:"16" 

1995  L**W««W*U>“L*U  >*4.S7 

2000  GOTO  Driwdtp 

2005  FI  *t  24!  1 1  vp*'"  I  '*12 

2010  GOSUB  Ermnun 

2015  Np i n< I > »24 

2020  LABEL  USING  *K,,;"24* 

2025  L*-W«»W*<  l:-«L*a>»7.?5 

2030  GOTO  Dr v.id i  p 

2035  FI»t40:  Ityp«(  n«13 

2040  GOSUB  Er»£«num 

2045  Npin<!>*40 

2050  LABEL  USING  "K";"40" 

2055  L**W*«W*< I ) =L*f I >«12. 19 

2060  GOTO  Drkudip 

2065  F 1 fct 64 : 1 t yp* ' I ■■ 1 4 

2070  GOSUB  Eru  (nun 

2075  Npin<I>*64 

2080  LABEL  USING  “K" ; "FLAT64" 

2035  L**Wt«W*< I i=L«< I >»13. 29 

2090  GOTO  Dr*wdip  !  END  Or  COMPONENT  DEFF INI T IONS 

2095  ! 

2100  £r«s«num: *  HERE  WE  MOVE  THE  REGION  NUMBER  TO  THE  UPPER  LEFT  CORNER 

2105  CSI2E  3 

2110  MOVE  X<t),Y<I> 

2115  PEN  -1 

2120  LABEL  USING  "K“;I 

2125  CS12E  2.5'Sct 

2130  IF  R*g  ch*»0  THEN  PEN  1 
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2135  MOVE  X' I 4*Lr, Y< !  4*Hr 
2140  LABEL  USING  " K " ; 1 
2145  MOVE  X. I  ',Yi  I) 

2150  C$I2£  3. 4rSc  a 

2155  RETURN  !  END  OP  ERASENUM 

2 160  • 

2165  Bd  chae: GOSUB  Error 

2170  Bd~Cha:'  TnI3  routine  allows  pop  change  of  type  fop  specified  components 
2175  0M— EPPOP  GOTO  Ed  ch»e 
2160  SI*"CHANGE  COMPONENTS" 

2185  G03UE  Pagehead 

2190  PRINT  "  This  itc'  ton  kit  out  cornet  iwj  *o  the  component  *  on  the  circuit 
board. “ 

2155  PRINT  you  mav  no’  change  the  circuit  board  itself.  You  will  tin 

t  remove" 

2200  PRINT  “all  unwanted  component*  (up  to  10)  bv  e  n  t  e  r  >  n  g  the  region  numter  on 
th*  picture." 

2205  PRINT  "When  removing  any  component  which  require*  no  space*,  use  the  lower 
region  num." 

2210  PRINT  “Entering  a  0  or  pressing  CONT  with  no  entrv  will  allow  program  *o 
eont i nue" 

2215  PRINT  “with  the  section  that  allows  def  f  i  r.  1 1.  i  on  of  components  in  all  empty 

space*.  “ 

2220  PRINT 

2225  PRINT  "Remember  to  allow  space  for  the  larger  components  th*»  require  two  r 
•gions.  * 

2230  1 1 1  *0 

2235  Again:  Itt»ltt*l 
2240  Ansi* “ 0 “ 

2245  INPUT  “ENTER  THE  REGION  NUMBER  TO  REMOVE  COMPONENT  • DEFAULT* -0  *  NONE).”, An 

s* 

2250  IF  ftni**“ BAChJJP “  THEN  RETURN 
2255  Reg_cha*VAL Ans  s  ' 

2260  IF  Rtg_cna»0  THEN  Add_comp 

2265  IF  <Reg  cha >0)  AND  .Reg  cha  Nreg*l)  THEN  2230 

2270  GOSUB  Err i n 

2275  GOTO  Again 

2280  Reg  cha' It. t  >*Reg  cha 

22S5  GOSUB  Erase,  comp 

2290  Reg  cha«0 

2295  IF  Tttf»10  THEN  Again 

2300  SI* “ MAX  I  MUM  NUMBER  OF  REGIONS" 

2305  GOSUB  Page  he  ad 

2310  PRINT  "  There  are  10  changes  to  accomplish  at  this  point,  and  to  avoid  pro 
btems  you" 

2315  PRINT  “must  redefine  the  board." 

2320  PRINT  LIN<3>,$PA( 15), "Pres*  CONT  " 

2325  GOSUB  Add  comp 
2330  GOTO  Bd_cha 

2335  Erase  comp: !  THIS  SECTION  REMOVE  UNWANTED  COMPONENT  TO  ALLOW  CHANGE 

2340  GRAPHICS 
2345  PEN  -I 
2350  I*Peg_cha 

2355  IF  It ype <Reg_cha)*0  THEN  2365 

2360  ON  Itypetl)  GOSUB  Hdi  p  14 .  vj ;  p  1 4 .  Hd'  p  1 6,  vo  i  pi  6,  Hq  i  p24,  •*  di  p24,  Er  r  o  1  de  .  Err  o  1  de 

,Hdip40,  Vdtp40,  FI  at  1 6,  FI  a»  24,  Fl  at  40,  F  1  a»  64 

2365  PEN  1 

2370  GOSUB  Empty 
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2375  IF  I <2  THEN  240U 

238(5  IF  < It ype< 1-1 >=9 >  AND  <  I  type C I )»9>  THEN  2380 

2385  GOTO  2400 

2390  1*1-1 

2395  GOSUB  Empty 

2400  IF  HNwr+l  THEN  2420 

2405  IF  Itype<  I-N;;r  >010  THEN  2420 

2410  I-I-Nwr 

2415  GOSUB  Empty 

2420  WHIT  500 

2425  EXIT  GRAPHICS 

2430  RETURN 

2435  Add  comp: !  THIS  SECTION  ALLOWS  ADDITION  OF  COMPONENTS  TO  EMPTY  SPACES 

2440  IF  Ttt<2  THEN  2475 

2445  IF  01 de*PI  THEN  GOSUB  Graphkey 

2450  FOR  1*1  TO  Nr  eg 

2455  IF  1 type*.  I  '<  '  0  THEN  2470 

2460  POINTER  X(I>,Y<.I>,2 

2465  GOTO  2460 

2470  NEXT  I 

2475  FOR  1*1  TO  15 

2480  OFF  KEY  41 

2485  NEXT  I 

2490  EXIT  GRAPHICS 

2495  RETURN  !  END  OF  ADD  COMP 

2500  ■ 

2505  Ca*#_type : GOSUB  Error 

2510  Case  typ:  !  THIS  SECTION  ALLOWS  THE  USER  TO  SPECIFY  THE  CASE  TYPE  FOR  DIPs 
2515  ON  ERROR  GOTO  Case  tup* 

2520  IF  <0 1 de*PI >  AND  THEN  G0T0  Case  chi 

2525  !  BUT  FIRST  MUST  TELL  THE  USER  TO  CHANGE  THE  KEY-CODE'  OVERLAY 
2530  3**” CHANGE  OF  THE  SPECIAL  FUNCTION  KEYS " 

2535  GOSUB  Pagehead 

2540  PRINT  L I Nt  tO , SPA1  18', *  REMOVE  THE  KEY  CODE  OVERLAY  FOP  COMPONENT  INPUT" 

2545  PRINT  L I N<  1  /  ,  SPA’  10  ,  "REPLACE  THE  GENERAL  PURPOSE  KEY  CODE  OVERLAY" 

2550  DI3P  SPA«.25),  "PRESS  CONT  WHEN  READY" 

2555  PAUSE 

2560  S*«" TYPE  OF  DIP  PACKAGE" 

2565  GOSUB  Pagehead 

2570  PRINT  “  Dual  inline  packages  CDIPs)  generally  come  in  either  an  inject io 

n  molded" 

2575  PRINT  “plastic  case  or  a  ceramic  sandwich  case.  The  style  of  case  construe 
tion  affects" 

2580  PRINT  “the  heat  transfer  and  must  be  known  f or  the  thermal  model." 

2585  PRINT 

2590  PRINT  "The  methods  of  specifying  the  types  of  cases  are  listed  below." 

2595  PRINT  TAB< 15> ; “THESE  APPLY  TO  THE  DIPs  ONLY"  . 

2600  PRINT  LUK2) 

2605  PRINT  TAB<10j;"l.  ALL  CERAMIC" 

2610  PRINT  TAB< 10> { “2.  ALL  PLASTIC" 

2615  PRINT  TAB< 10>  5 "3.  MAJORITY  CERAMIC  ‘USER  SPECIFY  WHICH  APE  PLASTIC'." 

2620  PRINT  TAB<10>;  “4.  MAJORITY  PLASTIC  ‘USER  SPECIFY  WHICH  APE  CERAMIC'" 

2625  PRINT  TAB< 10>  J “5.  USER  SPECIFY  CASE  STYLE  FOR  EACH  DIP  COMPONENT" 

2630  An**»" 1 “ 

2635  INPUT  "ENTER  YOUR  CHOICE  '  l .  2, 3, 4, 5.«  “  .  Ans* 

2640  IF  Ar,s*f  >  “BACK  UP"  THEN  2670 

2645  PRINT  L IN 1 20 ^ , SPA' 20 i , "UNABLE  TO  BACK  UP  WITHOUT  LOSING  THE  BOARD" , LIN 1 5  . 

2650  BEEP 
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2655  DISP  "Press  CONT  when  ready  to  continue" 

2660  PAUSE 

2665  GOTO  Case_typ 

2670  Ans=VAL<AnsS ’ 

2675  IF  < Ans<  1  )  OP  «.Ans  5'  THEM  Ca*e_tvpe 
26S0  ON  Ans  GOSUB  Cere ,  P  I  as .  Mcer  e ,  Hp !  is.  Any 

2685  C*s«_ch»: SS»" CORRECT  IONS  TO  CASE  STYLE  FOP  DIP  PACKAGES" 

2680  GOSUB  Page  he  ad 

2695  PRINT  “  On  the  screen  below  u  a  line  that  repr#iin«»  the  case  * ^pe  Cor 
*1 1  regi on*.  " 

2700  PRINT  "Those  regions  that  contain  a  plast'c  cased  component  are  j hour  in  in 
verse  vidio" 

2705  PRINT  ” 1  >  while  all  others  are  shown  in  normal  video  ’l1." 

2710  PRINT 

2715  PRINT  "To  male  corrections  enter  the  region  *  that  is  incorrscl  .  i  •'  no  Chang 
es  no  entry L IN 1 1 
2720  FOR  1-1  TO  Nr eg 

2725  IF  I  MOD  10»1  THEN  PRINT  SPA''  10' 5 

2730  IF  <  Case*  C I , I J*"0“  '  AND  •.  I  .  -  1 0  ■  THEN  PRINT  IlSPA-l'l 

2735  IF  < Case SC  I, I J  =  "0  '  >  And  >  r  10.'  ThEN  PRINT  SPA<  11 1  I ;  SPA'  1 :  ; 

2740  IF  <Case* t !  ,  I  J  »"  1  “  >  and  t  I>«10)  THEN  PRINT  CHP*  <  1 29  >  J  I }  CHP  S «.  1  23  ' !  SPA  <  1  > 

i 

2745  IF  (CaseSC  I ,  I  )*"  1 "  )  AND  <  I<  10)  THEN  PRINT  C  HR*  <129  I"  "  :  1 1  CARS  ■- 1 2S  ■ ;  SPA 

<i>; 

2750  IF  I  MOD  1O«0  THEN  PRINT  LIN<1> 

2755  NEXT  I 

2760  PRINT 

2765  Ansi- "NULL" 

2770  INFUT  "ENTER  REGION  »  TO  CHANGE  OR  PRESS  CONT  UITH  NO  ENTRY  IF  OK”, Ans* 

2775  IF  <Ans*  =  "NlJLL" >  OR  <Ans*»“BAO  UP" >  THEN  RETURN 
2730  Pegl*VAL'  AnsSi 

2735  IF  (Reg  1,0)  AND  ■. Peg  1  < «Nr eg :•  THEN  2300 
2790  GOSUB  Err  in 
2795  GOTO  Case_cha 

2300  CaselCPegT,  Regl  3=vrl*<  INT<  <  VALC Case* tRegl , Reg  1 3  >♦'.  >  MOD  2>) 

2805  GOTO  Case  cha  !  END  OF  Case  cha 

2810  * 

2815  Cere: !  ALL  CERAMIC  CASES 
2820  FOR  1*1  TO  Nreg 
2825  CaseIC  I ,  U»"0" 

2830  NEXT  I 

2835  RETURN  !  END  OF  CERE 

2840  ! 

2845  PI  as:  !  ALL  PLASTIC  CASES 
2850  FOP  1=1  TO  Nreg 
2855  CaseFCI, I]="l" 

2860  NEXT  I 

2865  RETURN  ! END  OF  PI  as 

2870  I 

2875  Mcere:  S*= "MAJOR I T V  CERAMIC  ...  SPECIFY  WHICH  APE  PLASTIC" 

2830  GOSUB  Fagehead 
2835  FOR  1=1  TO  Nreg 
2390  Cases  1 1 , I]-"0" 

2895  NEXT  I 
2900  Ans J* "NULL ” 

2905  INPUT  "ENTER  THE  NUMBER  OF  PLASTIC  COMPONENTS" , Ans * 

2910  IF  Ans*=” BACKUP"  THEN  Ca*e_typ 
2915  Ans»VAL<An*l,' 
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2920  IF  (fins  kV>  AMD  <Ans<Mreg*l<  THEM  2335 

2325  GOSUB  Err  in 

2930  GOTO  Mcere 

2935  IF  An**Nrcg  THEM  P I  is 

2940  FOR  1*1  TO  Am 

2945  Anti* "NULL" 

2950  INPUT  “ENTER  THE  REGION  NUMBER  THAT  CONTAINS  A  PLASTIC  COMPONENT",  Ami 

2955  IF  Ansi* " BACK  UP"  THEN  Mcere 

2960  Reg  1  =VAL ■'  Anil  > 

2965  IF  (Regl >0>  AMD  < Regl  Mreg+1>  THEM  2930 

2970  GOSUB  Err  in 

2975  GOTO  2950 

2990  Case  1C  Reg  1 , Regl 3  =  “ 1 " 

2985  NEXT  I 

2990  RETURN  ! END  OF  Me  ere 

2995  ! 

3080  Mplat:  SB -“MAJOR  I  TV  PLASTIC  ...  SPECIFY  WHICH  ARE  CERAMIC" 

3005  GOSUB  Page  he  ad 
3010  FOR  1*1  TO  Mr eg 

3015  Casein,  I3*"l" 

3020  NEXT  I 

3025  Anti* "NULL “ 

3030  input  “enter  the  number  of  ceramic  components", Ansi 

3035  IF  Ansi* " BACKUP "  THEM  Case_typ 
3040  An j* INT < VAL C  AniB ; > 

3045  IF  (  Ans  0 >  AND  •' Am -'Nre a*  1  •  THEN  3060 

3050  GOSUB  Err  in 

3055  GOTO  Mplas 

3060  IF  Ant*Nreg  THEM  Cere 

3065  FOR  1*1  TO  Ans 

3070  An»l*"MULL" 

3075  INPUT  "ENTER  THE  REGION  NUMBER  THAT  CONTAINS  A  CERAMIC  COMPONENT". Ant# 

3080  IF  Ant I* "BACK  UP"  THEN  Mplat 

3085  IF  (Regl>0>  AND  • Regl ' nr  eg* 1 >  THEM  3109 

3090  GOSUB  Err  in 

3095  GOTO  3075 

3100  CaselCRegl.Regl 3*"0" 

3105  NEXT  I 

3110  RETURN  !  END  OF  Mplas 

3115  ! 

3120  Any!'  EACH  REGION  MUST  HAVE  IT'S  DIP  SPECIFIED 
3125  FOR  1*1  TO  Mr eg 

3130  IF  <Ityp*(lKl>  OR  (U<‘M  (  I Y  >16>  THEM  3160 

3135  DISP  "IDENTIFY  CASE  TYPE  FOR  REGION  *“ ;  I ; “ CENTER  1  FOR  PLASTIC  AND  0  FO 

R  OTHEP>"; 

3140  INPUT  Caseltl, 13 

3145  IF  (CateUI, 13*"  l">  OR  (Casein,  I3*"0">  THEN  3160 

3150  COSUB  Errin 

3155  GOTO  3135 

3160  NEXT  I 

3165  RETURN  ! END  OF  Any 

3170  ! 

3175  What  now!!  THIS  SECTION  IS  THE  FINAL  SECTION 
3180  Si* "WHAT  MOW  ?“ 

3185  GOSUB  Pagehead 

3190  PRINT  "  You  Have  completed  one  cycle  through  BOARD':  and  have  the  follow 
ing  opt i ont: " 

3195  PRINT  LIH(1),TABU0''."1.  PERFORM  THERMAL  ANALYSIS  ON  "INanel;"  USING  THERM 

L.  " 
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3200  PRINT  LINU),TAB'  10).  “2.  INPUT  ANOTHER  CIRCUIT  BOARD  DESCRIPTION  FROM  ►  E'.'FO 
ARD.  " 

3205  PRINT  LINO) . TfiE C 10), “3.  INPUT  ANOTHER  CIRCUIT  BuARD  DESCRIPTION  FROM  MASS 
STORAGE.  “ 

3210  PRINT  LINC 1 ) , TAEC 10> , "4.  TERMINATE.” 

3215  1 

3220  Ans*=“ 1" 

3225  INPUT  "YOUR  CHOICE  •  1 , 2.  3.  4 ..  '• ,  An** 

3230  IF  Ans#»“ BACK _UP “  THEN  RETURN 
3235  Ans«AES<  INT ( VAC •'  Ana* ) )  ) 

3240  IF  A ri » '  5  THEN  325? 

3245  GOSUB  Err  in 
3250  GOTO  3220 

3255  ON  An*  GOTO  Therm !  ,  F  e do,  Re  do ,  Er.de 

3260  Therm! :DISP  "WORKING  LOADING  ThERHL  TO  PERFORM  ANALYSIS  OF  Names 
3265  LOAD  “THERML” , 85 
3270  STOP 
3275  I 

3280  Redo:  Map*Ans 
3285  RETURN 
3280  ! 

3285  Ende SPRINT  PAGE. LINC 20 > , SPAC 10) .  'NORMAL  TERMINATION  “ 

3300  DISP  "WORKING  LOADING  STANDARD  KEY  DEFF INIT IONS” 

3305  GCLEAR 

3310  LOAD  KEY  ” STDK.E Y " 

3315  END  '  END  OF  Uhl'  Mu 

3320  ! 

3325  Pagehead: !  THIS  SECTION  PLACES  DESIRED  HEADING  ON  A  BLANK  CRT 
3330  PRINTER  IS  16 

3335  PRINT  PAGE,  T  ABt  34-LEN-:  ?*'■- !'■  ;  ”*  +  *  «  ;  CHR*<  1  32.1 ;  $*!  CHPt  128.':“  LIfH2.» 

3340  RETURN  !  END  OF  PAGEHEAD 

3345  ! 

3350  Errinl!  THIS  SECTION  ALERTS  THE  USER  TO  AN  ATTEMPT  TO  INPUT  BAD  DATA 
3355  BEEP 

3360  DISP  "INPUT  OUT  OF  RANGE . TRY  AGAIN” 

3365  WAIT  15O0 
3370  EEEP 
3375  WAIT  1000 
3380  BEEP 
3385  RETURN 

3380  !  END  OF  Err  in 

3385  ! 

3400  Leadse: GOSUB  Error 

3405  Lead*:!  THIS  SECTION  ALLOWS  THE  INPUT  OF  THE  NUMBER  OF  LEADS  BETWEEN  REGION 
S 

3410  ON  ERROR  GOTO  Leadse 

3415  S*= “ELECTRICAL  LEADS  OP  OTHER  CONDUCTION  PA’HS” 

3420  GOSUB  Pagehead 

3425  PRINT  ”  All  circuit  boards  have  thermal  tv  conductive  material*  applied  t 
o  their  ” 

3430  PRINT  "surface  either  in  the  form  of  electrical  leads  or  as  thermal  conduct 
ion  paths.” 

3435  PRINT  "Heat  will  be  transferred  through  these  materials  between  the  regions 

m 

• 

3440  PRINT  “if  there  are  conduction  paths  (ruts)  present,  they  will  ha"s  a  much 

I arger " 

3445  PRINT  “effect,  than  the  electrical  leads  and  the  electrical  leads  will  be  ne 

glected  “ 
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3450  PeI;iT  “in  the  thermal  mod*  >  .  “ 

3455  Hns I* “ N“ 

3460  INPUT  “ ORE  THEPE  METAL  CONDUCTION  PATHS  PRESENT  N  or  V)“,finil 

3465  IF  An**=”EAO  JJP"  THEN  PETUPN 

3470  IF  UPCI '  Ansi C  7,  1  ]  =  “  N“  THEN  Li»Ji_ii:e 

3475  IF  UPC* 'Ansi [1,1]  '  =  “Y“  THEN  3450 

34S0  COSUB  Err  in 

3465  GOTO  Leads 

3490  $*  =  " CONBUC T  I  ON  PHILS" 

3495  All* "CPU's" 

3500  COSUB  Pagehe  ad 

3505  PRINT  “  Thermal  conduction  mil  are  much  wider  and  thicker  than  ’he  ele 
ctrical “ 

3510  PRINT  “leads  plated  onto  the  circuit  board.  The  thicVness  is  jenera'l"  uni 
Form , " 

3515  PRINT  “however;  the  rails  are  typically  not  of  uniform  width.  It  is  th«>-ef 
ore" 

3526  PRINT  “necessary  to  define  a  concept  of  Conduction  Path  Units  'CPU's  ■.  The 
rai 1  ui dth" 

3525  PRINT  “will  be  modeled  in  terms  of  an  i n t e o e r  number  of  CPU's.  You  will 
be  asked  to" 

3530  PRINT  “input  the  thickness  ■  rum  >  of  a  CPU  and  the  width  will  automatical'  •>  d 
•  f au 1 1  to “ 

3535  PRINT  “.1  mm  such  that  a  rail  of  width  1.7  rum  can  be  modeled  as  17  CPU's.  ‘ 
3540  PRINT 

3545  PRINT  “  For  your  convenience  the  thermal  c  onduc  t.  i  >>  1 1  i  es  'wat's  M-C1  of  t 
hree  alloys" 

3550  PRINT  "commonly  used  as  material  for  conduction  rails  are  given  be ' o j: “ . L IN 
<I> 

3555  PRINT  “HI  5052=  13S.2  M- M-C  .  HL  6101=  215.7  w  M-C  .  Cu  113  *  3S9 

.8  tl/M-C" 

3560  PRINT 
3565  01de=0 
3570  flns*=“ 1 " 


PHTHS  or  CPU  s  ;mm;',H 


3575  INPUT  “ENTER  THE  THICKNESS  OF  THE  THEPNHL  CONDUCT 

ns* 

3580  IF  Ansi* " BACK_UP "  THEN  Leads 
3535  T1  =HBS<.  VHL'.Hnsf  l  . 

3590  print  “thickness  of  cpu-s  =  " ;Ti;"mm“ 

3595  flnsf=". 1“ 

3600  I  INPUT  "ENTER  THE  WIDTH  OF  THE  CPU'S  • mm > " , Hns * 

3605  IF  Hns*= “ BACK  UP “  THEM  3570 
3610  HI =  AES< VHLCAns*- > 

3615  fl  1  =  -  H 1  *  T  1  NOTE  THHT  THIS  HR  EH  IS  NEGATIVE  FOP  CPU  s 

3620  PRINT  "WIDTH  OF  CPU's  =  “;Ul;"mm  HP EH  FOP  HEHT  TRANSFER  F EF  CFU  =" 

;  -HI  ;  "mm''2" 

3625  Ansl=" 133. 2" 

3630  INPUT  “ENTER  THE  THERMAL  CONDUCTIVITY  OF  THE  CONDUCTION  PATHS  tU  M-C " , Hns I 
3635  IF  Hns 1= “ BACK  UP"  THEN  3570 


3640  K1 =HBS< VHLfHnsO  > 

3645  PRINT  "THEPMAL  CONDUCTIVITY  = “ ; K1 ; " W at t s -  N-De g  C“ 

3650  WHIT  1500 

3655  COTO  Leads  enter  !  END  OF  CPU 

3660  ! 

3665  Leads  s i :e : SI*  “NUMBER  OF  LEADS" 

3670  COSUB  Pace  he  ad 
3675  H l I » " LEADS " 

3630  PRINT  “  This  section  of  the  program  allows  the  er.tr"  of  the  sire  and  con 
due  t i v i t y  of “ 
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3635  PRINT  "leads  ‘T  r  »c  4S )  on  the  surface  of  the  circuit  beard.  These  act  as  bo 
th“ 

3630  PRINT  “ e 1 ec t r i c al  and  thermal  conductors  between  the  regions.  When  tnterin 
g  the  width" 

3695  PRINT  “figure  an  average  width  for  all  »he  leads." 

3700  PRINT  L I N 1 1 ,  11  The  thermal  conductivity  will  default  to  pure  copper  <334 

Mat t  s-'M-De  g  CV 

3705  PRINT  "with  no  entry." 

3710  01 de=0 

3715  flns  S  =  " . 033 " 

3720  INPUT  "ENTER  THE  THICKNESS.  OF  THE  LEADS  ■-  TRACES-'  ON  THE  CIRCUIT  BOARD  '  Mm  ' 

*, Ans* 

3725  IF  Ans#»"BACK_UP“  THEN  Leads 
3730  T ! = AES ' VAL < Ans f ■ > 

3735  PRINT  L INC !•. "LEAD  THICKNESS  * " ; T 1 ; “ mm " 

3740  Ansf*” 1 “ 

3745  INPUT  "ENTER  THE  AVERAGE  WIDTH  OF  THE  LEADS  '.TRACES)  ON  THE  CIRCUIT  BOAR 
D  (am)'1,  Ansf 

3750  IF  Ansi® " BACK  UP"  THEN  3715 
3755  W I  = ABS  C VAL AnT t  •  > 

3760  A1*M1*T1 

3765  PRINT  "A VC  WIDTH  Or  LEADS  *  *;W!;“mm  AREA  FOR  HEAT  TRANSFER  PEP  LE*D 

*“ ; Al ; 

3770  AnsF*“3S4" 

3775  INPUT  "ENTER  THE  CONDUCTIVITY  OF  THE  TRACES  'DEFAULT  COPPER  «  3S4uat»s-M-d 
«gK)“, Ans* 

37S0  K1  «ABS< VALcAnsf  >  > 

3735  PRINT  "CONDUCTIVITY  OF  THE  LEADS  *";K1;*'  Watts -M-C" 

3790  WAIT  1500 

3795  Leads_enter:  S»="NUM£ERS  OF  "iAldi"  BETWEEN  REGIONS" 

380O  GOSUE  Pagehead 

3665  PRINT  "  This  section  of  the  prooram  allows  »he  ent.ru  of  the  numbs"  of  th 

e  "  J  A 1  * 

3810  PRINT  “that  cross  each  of  the  internal  region  boundaries.  If  these  are  on 
both  sides" 

3815  PRINT  “of  the  board  add  both  numbers  together.  The  flashing  cross  will  mow 
•  to  the" 

3820  PRINT  "appropriate  location  on  the  screen  but  the  graphics  picture  will  net 

remain." 

3825  PRINT  "If  a  hard  copy  of  the  graphics  is  needed  for  a  guide,  recall  that  1:3 
will" 

3830  PRINT  “provide  one.  The  picture  will  return  to  the  screen  while  the  number 

of  ";ai# 

3835  PRINT  "is  labeled  and  the  flash.ng  cursor  will  move  to  the  ne  :t  location  to 

be  entered. " 

3340  PRINT  L INC  1 Y , " DO  NOT  USE  kO  CEACK  UP>  WHILE  THE  NUMBERS  OF  "lAlt:"  APE  BE 
ING  ENTERED!"  “ 

3345  PRINT  L IH< 1 There  will  be  correction  opportunities  later." 

3850  DISP  "PRESS  CONT  WHEN  READY  TO  START  WITH  REGION  #1" 

3855  PAUSE 

3360  GOTO  Leads_in 

3865  Leads_l abe 1 :  '  HERE  THE  NUMBERS  OF  LEADS  OR  CPU'S  IS  WRITTEN  ON  THE  SCREEN 

3870  CS IDE  2.5 

3875  GRAPHICS 

3880  LABEL  USING  “K";N1 

3885  PEN  -1 

3890  LDIR  -PI 

3895  LABEL  USING  "K“;N1 


BOARDS  ..  DATA  INPUT  FOP  tmERHELE:: 


39UO  PEN  t 
3903  LDIP  0 

3910  IF  0 1  de->  PI  THEM  WAIT  530 
3915  RETURN 

3920  Lead*  old:CSI2E  2.5 
3923  S*=“ NUMBERS  OF  LEADS" 

3930  til  #»  "LEAPS'" 

3935  IF  Hl<0  THEM  Al*=“CPU’s“ 

3940  GOSUB  Pagehead 

3945  PRINT  “  This  section  of  the  program  displays  the  numbers  of  leads  croui 

ng  “ 

3950  PRINT  “boundari es  of  regions  by  placing  numbers  on  the  sides  of  the  regions 
that" 

3955  PRINT  "represent  the  i nf ormat i ons  stored  in  " ; Name t ; " .  You  will  be  allowed 
to  make" 


3960  PRINT  "corrections  to  that  information  and  re-store  in  on  mass  storage  if  r 
equi red. “ 

3965  PRINT 

3970  !  PRINT  “If  you  do  not  desire  to  view  the  data  concerning  number  of  leads, 
enter  any  “ 

3975  !  PRINT  “number  before  you  press  CONT  .“ 

3930  DISP  "PRESS  CONT  WHEN  PEPPY  TO  VI EH  DATA  “ 


3935  Leads_m:  FOR  1  =  1  TO  Nreg 

3990  J=1  !  HERE  IS  BOTTOM  OF  THE  REGION 

3995  GRAPHICS 

4000  IF  I +Nxr< =Nreg  THEN  4025 

4005  N I <  J , I >  =  N 1 =  0  '  HERE  IS  BOTTOM  OF  THE  BOARD  WHERE  CONNECTORS  WluL  GO 

4010  MOVE  :<■  I>,Y«'I  >-.45*Hr 
4015  GOSUB  Leads  label 
4020  GOTO  4165 

4025  IF  <  I  type  <  I  X  >10  >  OR  •.  I  »■  ype  <  I  *M:<r >  .  >  1 0  >  THEN  4100 
4030  MOVE  Xa>  +  .  32rLr,  Y<  I  >-.45rHr 
4035  IF  01de< -PI  THEN  4050 


4040  H 1 =N 1 <  J ,  I > 

4045  GOTO  4090 

4050  POINTER  ?<<!'■♦.  32*Lr,  Yf  I  45+Hr.  2 
4055  WAIT  2000 

4060  DISP  "ENTER  THE  NUMBER  Or  ”;A1#;“  BETWEEN  REGIONS  "  ;  CHR*  <  1  32  1  1 1  CHPS  <  1 23  - 
}"  AND  ";CHR*<132>; I+Nxr;CHR*<123>; 

4065  INPUT  N 1 
4070  N 1 *AB3  <  N 1 > 

4075  N 1  <  J  +  2,  I  +Nxr  )  =  N  I  •:  J,  I  )=N1 
4080  GOSUB  Leads_l abe 1 

4035  MOVE  X <  I  +Nxr  > ♦ .  32*Lr ,  Y<  I rtlxr  >  ♦ .  42»Hr 

4090  GOSUB  Leads_label 

4095  GOTO  4165 

4100  MOVE  X< I) , YC I »-. 45*Hr 

4105  IF  OldeOPI  THEN  4120 

4110  N1«H1CJ,I) 

4115  GOTO  4150 

4120  POINTER  /.<  I>,Y<I)-.45*Hr,2 
4125  WAIT  2000 

4130  DISP  "ENTER  THE  NUMBER  OF  BETWEEN  REGIONS  " 5 CHR#' 132' 5  1 5 CHR* Y 128  . 

5“  AND  ";CHR#<132); I*NxrSCHR*'l£3>; 

4135  INPUT  N 1 
4140  Nl-ABS(Hl) 

4145  N1 ( J, I)=N1 ' J*2, I*N  rr'»Nl 
4150  GOSUB  Leads  label 
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BOARDS  ..  DATA  INPUT  FOR  THERMELEX 


4153  MOVE  X<I+N*r>, Y< I +Nxr > ♦ . 42*Hr 
4160  GOSUB  Liii'Ji  1  ibc  1 

4163  J»2  !  HERE  IS  FOR  RIGHT  SIDE  OF  REGION 

4170  IF  I  MOD  NxrOO  THEN  4143 

4173  N1<2,I>*NI«0  !  HERE  IS  THE  RIGHT  SIDE  OF  THE  BOARD 

4180  MOVE  Xt I)*.42-Lr,Y‘ I ) 

4135  GOSUB  L«*d*  label 
4190  GOTO  4340 

4195  IF  <I*.yp*<I><>9>  OR  C  Ityp*<  !♦!'<  >9)  THEN  4278 
4200  MOVE  X<  I )  ♦ .  42*Lr  ,  Y *.  I  > -  .  32**Hr 
4205  IF  01d«<.  ;PI  THEN  4220 
4210  N 1  * N 1 <  J ,  I  > 

4215  GOTO  4230 

4220  POINTER  X  <  I  >  * .  42+Lr .  Y I  >  - .  32*Hr ,  2 
4225  WRIT  2000 

4230  DISP  "ENTER  THE  NUMBER  OF  "lAlx;"  BETWEEN  REGIONS  “  ;  CHP* '  1  32  ■  J  1 1  C HPX  1 
J“  AND  -;CHRX« 132>: I»1:CHR*<128>: 

4235  INPUT  N I 
4240  HI »ABS<N1 > 

4245  N) < J, I>»N1 ( J+2, I*1>*N1 
4250  GOSUB  Leadx_1ab«! 

4255  MOVE  XU  +  l)-.42«Lr,  Y< I+i >-. 32*Hr 
4260  GOSUB*  L i  id s  1  i -  •?  ' 

4265  GOTO  4335 

4270  MOVE  :<<!)♦.  42*Lr,Y< !> 

4275  IF  01 de<  >PI  THEN  4290 
4230  N 1  *  N  t  <  J ,  I ) 

4285  GOTO  4313 

4290  POINTER  X<I/*.42*»Lr,YvO,2 
4295  WAIT  20O0 

4300  DISP  "ENTER  THE  NUMBER  OF  *'SAl»l“  BETWEEN  REGIONS  "  1  CHR:  X  M  32  >  J  I ;  CHP.I  <  1 
{“  AND  “  ;  CHP$  <  1 32  >  {  I  ♦  1 1  CHRB  <  1 28  •>  1 
4305  INPUT  N 1 
4310  Nl*ABSOtl» 

4315  GOSUB  Lead*  label 
4320  HI  0+2,  I ♦  1  > «NI  •  J,  I  •  =  N 1 
4325  MOVE  X v  1  +  1 )-. 42*Ur,Y<  I  > 

4330  GOSUB  Leads_label 

4335  J«3  !  HERE  IS  FOR  TOPS  OF  EACH  REGION 

4340  IF  I>N*r  THEN  4360 

4345  N1<J,I)=NI»0 

4350  MOVE  X(  I  )  ,  Y<  I '< +  .  42*Hr- 

4355  GOSUB  Lead*_l»oel 

4360  J»4  !  HERE  IS  FOR  LEFT  SIDE  OF  REGION  OR  BOARD 

4365  IF  <  t - 1 >  MOD  Nxr-0  THEN  4375 

4370  GOTO  4390 

4375  N1 < J, I >  *NI =0 

4380  MOVE  X< I >-. 42*Lr, Y< 1 > 

4385  GOSUB  Lead*_label 
4390  NEXT  I 
4395  GRAPHICS 
4400  MOVE  160,130 
4405  LOPG  6 
4410  CSI2E  3 

4415  LABEL  USING  OF  "3.A1* 

4420  DRAW  X<Nxr>,  yiN/r 
4425  POINTER  0,0,0 
4430  WAIT  50OO 
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BJARBS  ..  BATA  INPUT  FOP  THEPMELEX 


4435  EXIT  GRAPHICS 
4440  RETURN 

4445  Lead!  chae:  COSUB  Error 

4450  L«4d*"«h*:  S*» "CORRECT  I OHS  TO  HUMBER  OF  “J.A1* 

4455  ON  ERROR  GOTO  Lead!  chae 

4460  Check *0 

4465  GOSUB  Page  head 

4470  PRINT  “  You  may  now  make  corrections  to  the  number!  ot'  ";A1*;“  crossing 
the  bound  tries. ' 

4475  PRINT  "Recall  that  k3  will  provide  a  hard  copy  of  the  graphics  if  needed 
while  k  2  " 

4430  PRINT  “will  return  the  graphic!  picture  to  the  screen  for  visual  checking. 

M 

4485  PRINT 

4490  PRINT  "In  responce  to  the  prompt!  below.  INPUT  Peg  #,  Reg  4.  CORRECT  4  OF 

* • A 1 *i LIN<  t ) 

4495  PRINT  "IF  THERE  ARE  NO  CHANGES  PRESS  COHT  KEY  l-UTH  NO  INPUT." 

4500  LORC  5 

4505  IF  Check >0  THEN  BEER 

4510  IF  Check.  0  THEN  PRINT  L  IHt  3  > .  "  CHECK  O'-’ER:  THE  FIGURE.  YOU  HAVE  MSt'E  AN  IL 
LOGICAL  CHOICE  OF  REGIONS." 

4515  Check »Check+l 
4520  Reg  1 *0 

4525  DISP  “REG  *  x  REG  4  ±  CORRECT  4  OF  ";Alt; 

4530  INPUT  Regl , Peg2, Hewn  I 
4535  IF  Regl»0  THEN  RETURN 

4540  IF  (Regl  >Nreg  >  OR  tPeg2  ilreg.'  THEN  4465 

4545  IF  Reg2>Regl  THEN  4565 

4550  Dum=Reg2 

4555  Reg2*Regl 

4560  Regl*Dum 

4565  J*0 

4570  IF  (Regt  +  l*Pegi>  AnB  '  Real  MOB  Nxr  ; O  •  THEN  0*2 

4575  IF  Regl+N;<r*Reo2  THEN  J*1 

4580  IF  ;<>0  THEN  4655 

4585  EXIT  GRAPHICS 

4590  «*»"ERP0P  IN  CORRECTIONS" 

4595  GOSUB  Pagehead 

4600  PRINT  LIN<5>, $PA<5> , “  THOSE  TWO  REGIONS  BO  NOT  CONNECT  TRY  AGAIN" 

4605  BEEP 
4610  WAIT  2500 
4615  GOTO  Lead!_cha 

4620  !  HERE  IS  THE  CORRECTION  SCHEME 

4625  Leadi_eraie:  PEN  -l 

4630  GOSUB  Lead!  label 

4635  HI *Ntwn 1 

4640  PEN  I 

4645  COSUB  Leads  label 
4650  RETURN 

4655  IF  J*2  THEN  4745 

4660  IF  <  1 1  yp4  (Regl  ><  >  10 )  OR  (  1 1  ype  RegS'r-  >  1 0  >  THEN  4705 
4665  MOVE  XfPegl >♦. 32*Lr , V'Regl >-. 45*Hr 
4670  Ml *NI <  J , Regl ' 

4675  GOSUB  Uead!_eraie 

4630  MOVE  X<’Peg2~*.32*Lr,YtPeg£  ,  +  .42*Hr 
4685  N1«N1 < J+2,Reg2 ■ 

4690  GOSUB  Lead»_erase 

4695  HI  <  1 , Regl ) »N1 i 1 , Peg2 t •Hewn 1 
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BOARDS  tiHTri  lUf'JT  FOR  ThERHElE:: 


4700  GOTO  L t  idi  change 

4705  MOVE  likRjjT'.V  c«9l  -.45.Hr 

4710  Sl»HIO.R«Jl' 

4715  COSUB  L4  43J 

4720  MOVE  X»»4-j27,  Regi  ■•.  42»Mr 

4725  Ml  «N1  <  J*2,  Reg.1  > 

4730  COSUB  L4  4di_4r»ie 

4735  Ml  <  J  ,  Re  jl  ■  »M  I  ■.  J»2,  R  *  •)£  '■  “Neon  I 

4740  COTO  L#4dl  cm 

4745  •  HERE  lie  REE  TO  CORRECT  The  E'.CHT  -.IDE  of  EEC  I GMj 
4750  IE  <  It;  pe  Re Jl  •  .  9  •  OR  >  1 1  •  pe ■ R*g2  •  =>  •  ThEN  4735 
4755  MOVE  X  R*  j  t  >  ♦ .  42*Lr  ,  (<  Peg  1  ■  - .  32 -Mr 
4760  Ml «MI < J, Regl  ■ 

4765  COSUB  L4  4di_er4ie 

4770  MOVE  X‘ Reg2  - .  42»Lr  .  < '  Re  ;2  ■  - .  3* »Hr 
4775  Ml »N1 < J*2.Re g2  ' 

4700  COSUB  Le 4dl  «r»M 

4705  Ml  <  J.Regl  *iil  J*2,Peg2  •«M«-,nl 

4790  GOTO  L4  4dl  charge 

4795  MOVE  X’ P«gT 42*Lr  ,  .  •,R«g:  ^ 

4800  Ml -Ml < J.Regl > 

4805  COSUB  Le  adl  trut 

4810  MOVE  X- R«.jr"-.42*Lr,Y-P«.j2  . 

4815  N1*N1 < J»2,Reg2 

4320  COSUB  Le  adl  trut 

4825  Ml  '.J.Regl  )*Nl  i  J  *  2  >  R  e  g  2  1 

4830  GOTO  L#4dl_cha 

4325  Tempin:  1  THIS  SECT  I  CM  INPUTS  THE  »  MOWN  TE  'lFEEriT'.  E  •  "*  E C  l<£ c  i  OE  EuE''EntL 

4840  EXIT  CRhPHIC? 

4845  Si ■“ TEMPERATURES  OR  ROWER  LE'El'S  OE  C  C'MR  GHENT'S  * 

4850  COSUB  E age  he  ad 

4855  PRINT  “  Th»  thermal  model  oied  tv  thu  progr  in.  Uic.k<J  each  OEintr'  *  : 

b«  4  h4  41  •' 

4360  PPIMT  "nurct  f  or  wtitch  iln  ujtr  »pt: ’ t  1 1  i  tuiitr  tr,t  ma  i  -  -in  j;r.ci  :  *  4  * . «: 

erature  or" 

4365  PRINT  "tht  r»tt  of  heat  generation  within  t  r  at  c  o»ror>4  nt  .  urtn  'ft  '•»  ’  ■-<  “■ 

June  non" 

4370  PRINT  “  t.  4rnp4r  4t  uf  4  li  ipeCtt'ied,  tht  l"  i  I  liUM  1'tll  1  4'4t4  power  t  e’j  414 
C  4  1  Cul  4t*<J.  " 

4875  PRINT  “When  the  r  4»  4  of  poutr  Ouipn  ion  ii  iptc  if  i«o,  '  h«  iteadv  s »  4’  <  ;un 
et ion” 

4380  PRINT  “t  emper  at  urei  »r<  :4l.;ul  4'40." 

4835  PRINT 

4890  PRINT  “Th«  program  uiti  th*  component  iurf 4Ct  ttmptr  4'i<rt  in  •  h«  'htriul  me 
d« I  and  " 

4895  PRINT  “therefore  rtouirti  4  rate  to  junction  fhertal  r4iil'  4nc4  K  - " 

•ver , “ 

4900  PRINT  “if  ztro  ii  ipectfieo  thtn  the  Iurf  ut  t 4  mp4  r  4»  ur  *  1  j  asiumed  to  t<  » 

he  lane  41“ 

4905  PRINT  “the  junction  t  emper  »"jrt,  Winn  component!  ipin  »  mo  rtjnni,  en'tr  h 
4 1  f  the  " 

4910  PRINT  “component  po'-er  for  etch  region." 

4915  PRINT  LIMil),”  All  tntriti  mult  be  in  Deg  C  or  utui  and  deg  C  Wt’»l.“ 
4920  IF  01de<  'PI  THEN  4945' 

4925  DISP  “PRESS  CC NT  WHEN  READ'.'  TO  VIEW  THE  DATA  FROM  “  J  '.‘HP  t  •  1  32  •  1  N  4me  i I  CHR  t 
123);“  FOR  POSSIBLE  CHANGES" 

4930  PAUSE 

4935  GOTO  Temp_chi 
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LATA  1  NF'UT  F 0 R  ThERMELE'  . 


4940  I 

4943  Anil*" l “ 

4930  MOT  Pow*7ER 
4933  MOT  T j  *2ER 
4900  MOT  fij_e»:ER 

4903  INPUT  “DO  ''00  DESIRE  ”0  -IFECIFY  POWER  lE'-ElS  •  1  '■  OR  TEMP'S  <2  '  '“.Anil 
4970  IF  Ani»*"BACi _ JF “  THEM  RE  TORN 
4973  Ani«7AL <■  Ant t  ■ 

4980  IF  <Am*l.'  OP  Ar.»*2  THEM  4  >93 

4985  COSUB  Err  in 

4990  GOTO  T«»ip  i  n 

4993  IF  Am*l  THEM  Pjw_in 

5000  T*wp  ini  Tri  jol*U  h£P£  InFijT  T  EMFEP  r.  ’  . c  E  i  WILL  SCl'.'E  FOR  POWERS  LATEC 
5005  SI*"TnPUT  OF  JUNCTION  T  EM- Ef  h  Ti.R  ES  “ 

3010  C03UB  P*j*r-»i3 

3015  PRINT  *  5  i  \r*  no»  intoning  junction  •  t<ip«r»t  jrt  ■  '3«J  C>  »nd  june’ijn 

to  cu«‘ 

3020  PRINT  "tMtriiikl  r«jijtir>C4  •  Jig  C-Uit»  •.  Do  not  ,<j«  kO  'B»ck_.iH'  option 
ht 1 1  4nt «r i rig" 

3025  PRINT  "th*  d»t*.  " 

3030  PRINT  LIN'  3 , 

3035  PRINT  “  1  T  |  .■  j  .  R  i  “ 

3040  FOR  1*1  TO  Hr*; 

5045  IF  1 1 y pt ■  I  *0  Them  5 0 0 0 

3030  DISP  “FOP  ELEMENT  In  R  ECI  ON  • ;  I :  “ENTER  T  j  wr.c  .  P  j_c  “ : 

5053  INPUT  T j  I  ,R  •  :  I > 

3080  PRINT  SPRt'  1  ,  i7Tj-  I  '.R  j  cl' 

3065  T  j  <  I  *T  j'  I  .-.273 

5070  NEXT  I 

3073  GOTO  Temp  ,;ni  i  END  OF  TEMP  IN 

3080  Pom  ini  T«7  t)l*l  •  HERE  INPUT  POWER  _E  ’ElS  WILL  SOLVE  FOP  TEMPERATURE! 
5033  SI*" INPUT  OF  I OMPONENT  ROWER  LE'ELS" 

3090  COSUB  Pk'J4»'i4  i'J 

3093  PPImT  “  VO'J  ir«  now  tntiring  (OkpC-nint  pou«r  1  Hi '  I  on  <Wl'’  ■  in  0  Jur. 
et 1  on  to" 

3100  PPIMT  “c»l*  tn«rmi'  r«mi  kn:ti  ''34;  C  U  it  t  •.  J;  no*  .ii«  kO  ‘'BlCk_jp  'ihi 
t«  tnuring" 

3103  PRINT  "th4  3  It  1.  “ 

3110  PRINT  L I M ‘  ? ■ 

3113  PRINT  I  Pq.j v  I  .  _ R j  c  <  I  )  “ 

3120  FOR  1*1  TO  N<  «.j  ~  " 

3125  IF  Itvp4sl*0  Them  5140 

3130  DISP  “FOP  ELEMENT  In  REGION  I ; “ENTER  Po-  I'.Pj  c<I>"I 

5133  INPUT  M'li.f) 

3140  PRINT  SPA'  l  • ,  I .  P*W  I  • ,  P  j  c  ..  I  ) 

3143  Tj<It*273 

3130  NEXT  l 

3133  GOTO  Imp  (hi  '  END  OF  POW  In 

3160  * 

3163  T«»p  <h«< :  COSUB  Error 

3170  Ttkp'cht:  '  THIS  SECTION  ALLOWS  CHANGES  TO  ThE  TEMPS  0»  POWER  LE'-'ElS 
3173  Si* "DATA  FOR  "IfictlDll 
3160  COSUB  P»g«M*id 

3165  PRINT  "  TH«  .jui  liittd  t'llow  lr«  tM  purr  «m  "»li4J  f  On  th«  'inipld 
»P4C  t  f t«d.  “ 

3190  PRINT  “REGION  »  T  j m r. ■:  ’  p4  gC  1  Pom4 r  ■'  t:  «i  i  t  '  p ■;  i i 4  -  r  W  •  C  ’  " 

3193  FOR  1*1  TO  Mr«g 

3200  PRINT  TAB '2', I  I  TAB  l'  .Tj  I  -279 1 t AB ■  S S  • . P* m ■  I  : T AB ■ 43  • , P J_C •  I 
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DATA  INPUT  FOE  T HER' HE L E X 


5205  NEXT  J 

5210  PRINT  LIN' 2) 

5215  IF  Sltp.PI  THEN  GOTO  5S60 

5220  PRINT  “LI**  *h«  DISPLAY  up-arron  OR  down-ar^ow  to  mow*  *  h*  data  lilt  a*  r*gu 
ir«d“ 

5225  Ch«ck«0 
5230  Am*-“0“ 

5235  INPUT  " ANY  CHANGES  ’  INPUT  PEG  »  IF  r'ES  CR  PRESS  CONT  FOR  NO  CHANCES", An* 

* 

5240  IF  An***“BACI.JJP“  THEN  T«<i.ptn 
5245  R«g  1 « I  NT  c  VAL  -  An*  *  i  > 

5250  IF  (  R  «  g  1  >  - 1  j  AND  '  R«gl  •  Nr«g-1 ->  THEN  5265 
5255  G03UB  Err  in 
5160  GOTO  52 SO 

5265  IF  <P«gl»0'  AND  'Ch«ck*d.>  THEN  Hard 
5270  IF  (R«gl*0*  AND  'Check-  O'  THEN  Temp  or,* 

5275  DISP  "TO  CHANGE  VALUES  IN  REGION  #";P*)i: 

5280  Ch«ck«l 

5285  IF  T  *m_j  o  1  « 1  THEN  DISP  “ENTER  Power  ,  P  .i  c“; 

5230  IF  T *m  JOl *0  THEN  DISP  “ENTER  Tjunc  .  Rj~c“: 

5235  IF  T*i*— so  I  ■  1  THEN  INPUT  Pom  ■  P«  <a  1  • .  R  i  CRegt- 

5300  IF  T*M~iol»0  THEN  INPUT  T,  R-:  g  i  ■ ,  R  •  R*  .3  1  • 

5305  IF  Tern  sol«0  THEN  Tj-Regl  »T  ,  ■  R<  .5 1  •  *27  3 

5310  PRINT  L  INC  1  > ,  TAJ >  2  J ,  R« 9 1 ;  T AE <  1  7  • ,  T  j  •  R«  j  1  ■  -  27 3 1  TAE ■  3  S  ,  Row  P«.jl  •  I  TAI  ■  4$  • .  P  j 
c  <R«gl ) ; “  ***  CHANGE  -♦«“ 

5315  GOTO  5230  !  END  OF  TEMP  CHA 

5320  H  ar  d :  I  THIS  SECT  ON  PRINTS  A  CORY  OR  THE  INPUT  DATA  IF  REOUES’ED 

5325  An**«“H" 

5330  INPUT  “DO  YOU  DESIRE  A  PRINTED  COPY  OF  THE  DATA  ABOVE  '  N  or  V  •  “ , A nil 

5335  IF  Anl*« " BACK  UP"  THEN  T«f»p_;ha 

5340  IF  An*f»"N“  THEN  RETURN 

5345  PRINTER  IS  0 

5350  $k 1 p«P I 

5355  GOTO  5130 

5360  PRINT  TAB  <  S3-LEN-  "THE  ABOVE  DATA  IS  FOR  "  :;.P  i  c  t  1  0 1  *  2.'.  “THE  ABOVE  DATA  IS  F 

OP  “ ;  P  i  c  1 1  b  1  * .  L I N  •  1  ' 

5365  PRINT  “BOARD  LENGTH  (defined  along  air  f  1  ow  '■  *“  ;  Bd  1  1  "  uni  HEIGHT 

Bdh;  “ m*i“ , LlN<  1  ) 

5370  PRINT  “BOARD  TH IC1  HESS- "  ;  Th  1  c  k  b:“t»Ki  CONDUCTIVITY  •“ 

JKbJ "W*tt*rn-K“,LINC2 > 

5375  PPINT  "THE  EOARD  MODEL  ASSUMES  “;AI*;''  AS  CONDUCTION  P'THS  WITH  AN  AFE A  OF 
“;ABS<A1  )J  “  in  re  2“.LIN'  1  ■ 

5380  PRINT  “THERMAL  CONDUCTIVITY  OF  THE  “;Al*;“  U  it  *  *.  M-C " 

5385  PRINT  " _ 

_ "  ,  L  I M  <  2 1 

5330  PRINTEP  IS  16 

5335  RETURN  !  END  OF  Hard 

5400  1 

5405  Stow*:  GOSUB  Error 

5410  stow:  '  THIS  SECTION  PLACES  the  DESCRIPTION  OF  THE  CIRCUIT  EOARD  ON  TARE 
5415  OH  ERROR  GOTO  Stow* 

5420  S*»"RECORD  BOARD  DESCRIPTION  ON  MASS  STORAGE" 

5425  GOSUB  Pag«h*ad 

5430  PRINT  "  You  may  record  all  t-h«  data  concerning  th*  circuit  board  on  any 
•vat  lab)*" 

5435  PRINT  "nan  itorag*  device.  Thi*  allows  an"  us*r  •;  r«tri*v«  *h*  d«i:>"pti 

on  at  torn*" 

5440  PRINT  "!at«r  t i m«  without  •  h*  n«*d  to  input  all  thi  detail*.  This  option  o 
ccur*  both" 
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BOARDS 


DATA  INPUT  FOR  1 HERt-tELEY 


3445  PRINT  "before  an  1  after  the  '  h<r<ul  analysts.  Enter  desired  da'a  f  t  I e  ns 
•e  below," 

345(3  PRINT  “be  sure  to  include  th*  mass  storage  unit  specifier  if  no*  'he  defaul 

t .  * 

5455  PRINT  "For  example  :T14  ,  : FA  ,  Yt2  etc." 

546(3  Ansi «  " Y " 

5465  INPUT  DO  YOU  DESIRE  TO  RECORD  THE  DESCRIPTION  DATA  .y  or  N''",Anj* 

5470  IF  Arts  S *  "  EACF_UR  "  THEN  RETuPN 
5430  IF  UPC*  < An**C 1 , I  ]  ■ « "N“  THEN  RETURN 
5435  IF  01  de<  :PI  THEN  5505 

3430  PRINT  LIN<5»,"THE  PRESENT  DESCRIPTIVE  TITLE  FOR  THAT  BOARD  IS  “  J CHR* ■  1 S2  ■  ; P 
let Ibl *!CHR*t IDSs 

5435  EDIT  "CHANCE  THE  TITLE  OR  PRESS  CONT  WITH  NO  ENTRY  FOP  NO  C HANCe . “ . F • : ' 1 b 

I  * 

5500  IF  Piet  I b 1 *« " BACF_UP "  then  Stow 
5505  An**=Name* 

5510  EDIT  "UNDER  WHAT  NAME  DO  YOU  DESIRE  TO  STORE  THE  DATA  'change  be  I Cw / ' " , N am* 

* 

5515  IF  Name  ** “ BACK_UP “  THEN  5430 
5520  IF  Nafnel*An**  THEN  5560 
5523  Ans*«"Y" 

5330  DISP  "DOES  A  DATA  FILE  WITH  AT  LE AST “ ; 40-Nr e g*6 00 ;  "  BYTES  EXIST  UNDEF  THAT 
NAME  <Y  or  N 
3533  INPUT  An s * 

3340  IF  Am*«"BACr  UP"  THEN  5505 
3543  IF  UPC#tAn**Cl. 1 J )»"Y*  THEN  5560 

3350  DISP  "WORK  INC  CREATINC  DATA  FILE  FOR  "JName*;"  THAT  ! S 40-Nr e 3*600 1 " BYTE 
S  IN  SIZE" 

5353  CREATE  Name* , 1 , 40-Nr eg*6O0 
3560  ASSIGN  »3  TO  Name* 

3563  PRINT  LINi  3>,  "WCP:(  INC  WRITING  BOARD  DESCRIPTION  OF  "  ;  ?  i  c  ?  i  b  I  *  J  “  ON  MASS  S 

TORAGE" 

3570  DISP 
3575  READ  »S,  1 

3580  PRINT  #5;  Name*,  Pi  c  1 1  b  1  * ,  C  a*** ,  Bd  1 ,  Bdh .  Sc  a,  Nxr ,  N"r ,  nr  eg ,  Th  t  c  k  b ,  f-b .  A I  ,  t  1  ,  Te  r., 

sol 

3333  FOR  I«1  TO  Nr eg 

3390  PRINT  *5 ;  If  vpe •'  I  • ,  X <  I  ■ ,  Y <  l  > ,  T  j  <  l  > ,  Row  I  ' ,  R  j  e  >.  I  > 

5395  FOR  J«I  TO  4 
3600  PRINT  »5;NI ( J ,  I > 

3605  NEXT  J 
3610  NEXT  I 
5615  PRINT  *5 ; END 
3620  ASSIGN  *5  TO  •* 

3623  PRINTER  IS  0 

5630  PRINT  LINTS', “THE  CIRCUIT  LISTED  BELOW  IS  STORED  UNDER  THE  FILE  NAME  ":ChF* 
< 1 32 >  J  Name* ; CHR *  t 1231 

5633  PRINT  L I N <  2  > . SPA i 23  > , P i c t 1 b I  * • L I Nt  2 ' 

3640  PP I  NT  SPAT23 > , "SAVE  FOP  YOUP  RECORDS" 

3643  PRINT  ■ 

_  “  ,  L 1 N*  2 >  " 

5650  PRINTER  IS  16 
3635  DISP 
5660  RETURN 
5665  Error;  ‘ 

3670  BEEP 
3673  WAIT  30O 

36S0  IF  EF'PH«36  THEN  Err  name 
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BOARDS 


PAT A  IHFUT  FOP  ThERHSlE.M 


3683  PRINT  L  iMi  2u  1 ,  SF A<  10." ,  "ERROR  NUMBER  “  ;  ER  CM ;"  HAS  GCURFED  IN  LINE";  ERRL I  “  •  PR 
ESS  CONT  WHEN  READ'.  " 

3630  DISP 
!««  JEEP 
3700  PAUSE 
3705  RETURN 
3710  i 

3715  Err  nw..«:'  THIS  SECTION  FOR  IMPROPER  FIlE  NAME 
5720  PRINTER  IS  16 
3723  PRINT  PACE 

3730  n«u»«»“I£FAULT  MAS:  :  T  E  A  0  £  “ 

3735  FOR  1*2  TO  LEN.Mmk*  ■ 

5740  IF  Ntat SCI, 13*":"  THEN  3735 

5745  NEST  I 

5730  GOTO  5770 

3755  M»ul<*Mii..«  *£  I  I 

3760  CAT  Mi  us  R 

3765  GOTO  37’5 

3770  CAT 

5773  PRINT  LIN' 2  ' . CHRJ'l 32  ■  ;nm>4*C 1 . I-! 3 ; CHF t  123  ■ ; “  is  N0T  on  "JMiujRI"  uitn  ih 
*t  sp«1  1  I  n.j . “ 

37$0  PRINT  L  IN'.  I  ,  ■•CHECl  OVER  THE  DIRECTORY  ABOVE  FOP  CORRECT  NAME . 

M 

3785  DISP  "PRESS  CONT  UHEN  READ," 

5730  PAUSE 
5733  RETURN 


<2  3  - 


116 


APPENDIX  D 


id 

20 

30 
40 
50 
60 
?0 
80 
90 
toe 
110 
120 
130 
140 
150 
160 
170 
180 
190 

200  OPTION  BASE  1 
210  PRINTER  Is  16 

220  DIN  SS  C  70  3 ,  T'  'pe  J  v  0 1  1 4  > ,  Ms  us  S  C  22 1 ,  Y 1  b  1  *C  25 1 

230  CON  Map .  M»m«i ,  Pi c  r  1  b  1  4C  503  ,  C  as  eRCSOl  .  Bd  1  .  Bdh ,Sea. Thick _b,T  ^n> _ *  o  1  ,  Kb ,  ft  1  ,  (<  1 

240  CON  SHORT  X«  50  < . Y  t  50  > , T ; \50  > .  Pow<  509 . R  J  C'.50> 

253  CON  INTEGER  I  *  vp*  i  50  ■' ,  N I  ■.  4 ,  SO  > ,  Nxr .  Nvr  •  Mreg 

260  INTEGER  Up i  n  <  1 5  > 

273  SHORT  A*  < 50  > ,  Re_:  end'  SO > ,  Re_c onv i 50  > ,  Rt  ot  e_b <  50 ,  Pt  op_r  <  50 > ,  R 1  .4,50  1 ,  Pe  i  e  5 
0) ,  Pb_eorn,'C 50 ' 

230  SHORT  Uideset ■  •  14>,L«ni**  t 14.‘ 

290  SHORT  L4<50>.M«<50  • .  He  <  50  '• ,  ?*<  58> ,  T  ai  r  <'S0> .  «<50, 5®'  ,B<50> ,  Tb-  50'- 
300  M  ap=  I  NT  <  Map ) 

310  IP  < Map*0 )  OP  <Map  3>  ThEN  Oldpict 

320  Start  ousrl  ON  Map  GOTO  0  I  dp  i  ct ,  Thermal  ,  Thermal 

330  GOTO- 0 1  dp  i  •:  t 

340  Oldpict*!  GO  SUB  Error- 

350  Oldpict:  !  THIS  SECTION  RETRIEVE?  n  BOARD  DESCRIPTION  OFF  A  MAS:  STORAGE  DEV 
ICE  FOR  THE  PURPOSE  OF  DEBUGGING  THERMAL 
360  ON  ERROR  GOTO  Oldpict.  e 
370  0 1 de«P I 

380  Si*"BOARD  DESCRIPTION  FROM  MASS  STORAGE  DEVICE" 

390  GOSUB  Pagehead 

400  PRINT  "  Vou  have  chosen  to  input  th<  circuit  board  description  in  T H E P M 
L  di rect 1 y" 

410  PRINT  "from  a  man  storage  device.  This  program  in  the  THERMELEX  System  mi 
1 1  NOT  " 

423  PRINT  "all om  graphical  data  checking  and  while  faster,  there  is  the  chances 
that  the" 

430  PRINT  "data  is  incorrect.  If  you  decide  that  it  would  be  better  to  check  ’ 

he  data" 

440  PRINT  “prejj  KO  <Back_up>  and  B 0 A P D S  will  be  loaded  from  the  DEFAULT  ma 
as  storage  uhit." 

450  PRINT 

460  PRINT  "  The  data  file  containing  'he  board  de scr I p* ; on  must  have  been  st 
ored  by  " 

470  PRINT  "this  program.  Enter  the  data  file  name  below,  be  sure  to  include  'h 

e  mass  ■ 

430  PRINT  "storage  unit  specifier  if  needed. fed  1 T t 4 , : F3, 1 Y12  e»C'" 

490  PRINT  LIH<I’,“  Do  NOT  use  quotes" 
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THERHL  ■■  THERMAL  ANAL  Y'S  I S  FOP’  THSPHELEX 


5d0  EDIT  "UNDER  WHAT  FILE  NAME  IS  THE  CIRCUIT  BOARD  FILED  f change  or  inter  be  1  o 

u) " , Name* 

510  IF  Name  I* ‘BACK  UP''  THEN  530 
520  GOTO  550 
530  Map*l 

540  LOAD  "BOARDS", 1 
550  ASSIGN  #1  TO  Nin.il 
560  READ  »1 ,  1 

570  READ  #1  JNamel,  Pi ct  161 1.Casel, Bdl , Bdh.Sca.  Nr,  Nyr ,  Nr*  3 ,  Th  1  ok_b ,  Kb ,  A 1  ,  K  I  ,  T*m_ 
iol 

see  FOP  1*1  TO  Nr  eg 

SSO  READ  *  1 ;  I  r  ype  ■  I  ■ .  I  > ,  T  <  l .  1  J 1 1  >  ,  Pow<  I  • ,  R]  c  <  I  > 

600  FOR  J*1  TO  4 
610  READ  #1  ;H1  <  J,  I  :* 

620  NEXT  J 

630  NEXT  I  !  END  OF  uLDF’ICT 

640  > 

650  GOTO  Thermal 

660  Thermalel  GOSUE  Error 

670  Thermal:  '  THIS  SECTION  IS  Th£  MAIN  INPUT  AND  CALLING  ROUTINE 
680  ON  ERROR  GOTO  Thermale 
690  SI*" THERMAL  ANALYSIS  OF" 

700  GOSUE  Page  he  ad 

710  PRINT  TAB.,  37-LElKP»et  1  b  I  !>  3  ■  ;CHRf  <  1 33  >  !  P  i  •:  1 1  b  1  *  1  C  HR!  ■  IDS'.  ;  LI1K2  ' 

720  PRINT  "  This  Mttton  assumes  you  have  completely  and  correct  !y  described 
the  board" 

730  PRINT  "itself.  You  will  be  ashed  questions  concerning  ONLY  the  environment 

M 

• 

740  PRINT  "  The  first  questions  are  concerned  with  the  cooling  air  suppl". 

Rec  al  1  t  he" 

7S0  PRINT  "direction  of  air  flow  on  the  graphics  picture  is  assumed  to  be  ’eft 
to  r i ght . “ 

760  PRINT  "The  clearance  between  the  boards  is  used  »o  determine  the  velocity  o 
f  the  “ 

770  PRINT  "cooling  am.",LINC2> 

780  Ansl*"20" 

790  Map >8 

800  INPUT  “ENTER  THE  INLET  TEMPERATURE  OF  THE  COOLING  AIR  'deg  C>",finst 
810  IF  final* " BACK_UP ”  THEN  St art_over 
820  Tai r *VAL> Ansi > 

830  PRINT  "  INLET  AIR  TEMP  T a  1 r  =  " ; T ai r : " de g  C" 

840  Tai r«T ai r+273  !  ALL  CALCULATIONS  DONE  IN  ABSOLUTE  TE  ? 

850  final*". 0OO5" 

860  INPUT  “ENTER  THE  AIP  SUPPLY  PEP  BOARD  •'  N "3 ‘'SEC )  "  ,  fins* 

870  IF  Anil* ” BACK_UP "  THEN  Thermal 
880  Fai r*VAL<  Ansi > 

890  PRINT  *  FLOW  RATE  OF  AIR  ;  F  ai  r  J "H  v3<-  Sec  “ 

900  Ar.s  I*  "  15.24" 

910  INPUT  "ENTER  THE  DISTANCE  FROM  THE  FACE  OF  THE  BOARD  TO  THE  NEXT  OBJECT  ■  n,r„ 
)  “ ,  Amt 

920  IF  A r.ll* ” BACK  UP "  THEN  780 
930  2b=VAL<  Ansi ) 

940  PRINT  "  BOARD  SPACING*" ; Zb; "mm" 

950  Zb=Zbe.001 
960  Ansi * " NULL " 

970  INPUT  "ALL  OK"'.. PRESS  CONT  ANY  ENTRY  FOLLOWED  BY  CONT  WILL  ALLOW  REEHTF 
Y  OF  ALL", Ansi 

980  IF  Ansi* " NULL “  THEN  1080 
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THERML  ..  THEPMAL  ANALYSIS  FOR  THEPNELg:-: 


990  GOTO  Thermal 

1000  SR- “CONVERGENCE  CRITERIA" 

1010  GOSUB  Pk‘}<h<id 

1020  PRINT  “  Convergence  it  indicated  by  tuc;«stiu«  mtriuonj  (hit  result  to 
element" 

1030  PRINT  "Uiipe-iturfj  that  differ  only  by  some  smal  1  tnount .  Each  element  te 

mperature" 

1040  PRINT  “  i  i  compared  to  thit  obtained  in  'he  previous  lUtrttion  and  if  the  I 

argest " 

1050  PRINT  "difference  is  less  than  a  maximum  specified  error,  results  are  print 
ed.  * 

1060  PRINT 

1070  PRINT  "  Typically  tuo  or  three  iterations  result  in  a  maximum  difference 
on  t  he " 

1030  PRINT  "order  of  one  degree  centigrade  when  solving  for  temperatures  and  fou 

r  or  five" 

1090  PRINT  "iterations  will  result  in  a  maximum  difference  on  the  order  of  .1  W 
att  when  * 


1100  PRINT  “solving  for  powers." 

1110  IF  Tem_sol-l  THEN  Ani»-“.  5“ 

1120  IF  Tem  sol=0  THEN  AnsS*"l" 

1130  IF  Tem_ so  1  -  1  THEN  INPUT  “ENTER  THE  MAXIMUM  DIFFERENCE  BETWEEN  I TTERflT IONS  ' 
deg  C)  DEFAULT-. 3", AnsR 

1140  IF  Tern  so  I *0  THEN  INPUT  “ENTER  THE  MAY  I  MUM  PERCENT  CHANGE  BETWEEN  ITTERATIO 
NS  <Uatt  )  DEF  AUL T  » 1 1. "  ,  An  s  S 


1130 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1230 

1260 

1270 

1280 

1290 

1300 

1310 

1320 

1330 

1340 

1350 

1360 

1370 

1330 

1390 

1400 

1410 

1420 

1430 

1440 

1430 

1460 

1470 


IF  An*<* “ BACK JJP “  THEN  Thermal 
Errmax-ABStVAL'  Ar,s*>  > 

GQSUB  Database  '  THE  FOLLOWING  LINES  FORM  THE  MAIN  CALLING  ROUTINE 

G03UB  Cal c 0 

GOSUB  Cal c 1 

GOSUB  Calc  air 

GOSUB  Calc“t 

GOSUB  Cal c2 

GOSUB  Debug 

GOSUB  Solve 

GOSUB  Units 

IF  Bomb- I  THEN  1230 

GOSUB  Output 

GOSUB  What  nou 

IF  Map-0  THEM  GOTO  Thermal 

GOTO  Oldpict 

i 

!  END  OF  THE  MAIN  CONTROL  SECTION  OF  THE  FPOCRAM  THEFML 


i  *********  DA  TAB  ASE*t  * 

Database:  •  IN  THIS  SECTION  MANY  OF  THE  CONSTANTS  USED  IN  THE  CALCULATIONS 
!  ARE  READ  IN  FROM  THE  DATA  LINES  BELOW 
DISP  "WORKING  ON  NON-CHANGING  PARAMETERS" 

PRINT  PAGE 


Axpi n=4. 3E-7 
Aspi n=lE-3 
Beta-3. 33E- 3 
Cpa- 1 . 006E3 
Di S-. 001 
Epsb». 3 
Epse-. 9 
G-9.3I 

Gnu- 1 . 634E-3 


•  X-SECT I ONAL  AREA  FOR  PINS  M  •  2  > 

'SURFACE  AREA  FOR  PINS  tM- 2> 

!  VOL  COEFF  OF  E'.PA.  AIR  ■.  1  deg  Ki  AT  300  deg  K 

'SPECIFIC  HEAT  OF  AIR  ••  II  ATT  -  :  EC  Kg-de  g  ►  > 

! RVC  DISTANCE  FROM  FOTTCM  OF  DIF  TO  BOARD 
I  EMM  IS  IV I  TV  OF  THE  SURFACE  OF  BOARD 
IEMMISIVITY  OF  THE  DIP  SURFACE 
(GRAVITY  tM/Sec-2> 

'KINEMATIC  VISCOSITY  AIR  'iMt'2  Sec> 
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THERML  ■  .  THERMAL  ANALYSIS  FOP  THEPMStSX 


this  reads  the  case  widths  fop  each  type 


325. .33. 1.25.0.0. .6. I, . IS. . 35, .43, . 72  !  ALL  IN 

1  This  READS  the  case  lengths  =or  each  type 


,  55.0,  0.  1, 


13,  .  35,  .  46,  . 


!  ALL  IN 
!  CONVERT 


this  reads  the  *  of  pins  for  each  type 


1480  H*c » . 0O 3  'HEIGHT  OF  CERAMIC  DIP  PAO AGE  --**.♦* I  I  I  I  I  J  I  I  I 

1490  H»p».  003  ‘HEIGHT  OF  PLASTIC  DIP  PACKAGE  **■»•«*■*  j  |  |  |  j  |  |  |  | 

1300  K**59  'THERMAL  COND  OF  -TEEL  ^ WATTS- M-d*g  K  ■ 

1310  K4i rs.026  'THERMAL  COND  OF  AIR  <  WATTS- M-d<  g  K  >  300 

1320  Kpin*334  ! THERMAL  COND  OF  PINS  < UATTS-M-dig  Y > 

1530  Lp i n* . 0025  ‘AVG  LENGHT  OF  FINS  v  M  - 

1540  Mu*l . 933E-5  'DYNAMIC  VISCOSITY  SCO  K  .'Kg-M-S«c> 

1330  Pp» . 703  1 PRANDTL  NUMBER  (AT  300deg  K) 

1 530  Rho*  1 .  1774  /DENSITY  OF  AIR  AT  300  K  (kg.-M-'S) 

1370  S l  g=5 . 67E- 3  !  STEFFAN-BOLTCMAN  c.U/M-'2-d*g  k"4) 

1580  1 1 1  *0 

1590  RESTORE  1630 

1600  FOR  1*1  TO  14  !  THIS  READS  THE  CASE  WIDTHS  FOP  EACH  TYPE 

1610  READ  U)  d*s«  t  *.  I  > 

1620  NEXT  I 

1630  DATA  .25. .725, .23, .325. .33. 1.25.0.0. .6. I, . 13. . 33, .43, . 72  !  ALL  IN 

1640  FOR  1*1  TO  14  '  THIS  READS  THE  CASE  LENGTHS  'OR  EACH  TYPE 

1630  READ  L*ns*uD 
1660  NEXT  I 

1670  DATA  . 725. .25, .825. .25, 1,  .55,0,0.  1,  .6,  .  13, . 35, . 46, .72  !  ALL  IN 

1630  MAT  Wt  d«ie»-  *>  23. 4.)*Ui  d«i«t  !  CONVERT 

1690  MAT  l*n*«t *<25.4 >*L*n*«t 

1700  FOR  1=1  TO  14  !  THIS  READS  THE  4  OF  PINS  FOR  EACH  TYPE 

1710  READ  Npir,(t> 

1720  NEXT  I 

1730  DATA  14, 14, 16. 16.24,24,3,0,20,20. 16.24.40.64 

1740  FOR  1=0  TO  14  !  THIS  READS  THE  CASE  LABELS  FOP  EACH  T vp£ 

1730  READ  Typ*»<I> 

1760  NEXT  1 

1770  DATA  EMPTY, DIP  14. DIP  14. DIP  16. DIP  16. DIP  24. DIP  24 . NULL . NULL , D I P  40 

0,FLAT16,FLAT24.FLhT40.FLAT64 

1780  FOR  1*1  TO  Nr  *g 

1790  IF  It,..p*>  t)*0  THEN  1330 

1800  L*< I »=L*ni*» •  1 1  up* •  I  }  '• 

1810  W«  < I ) *W \ d«  set  < 1 1  vp«( I >  > 

1820  GOTO  1340 
1830  W*<  I)=L«?'.  I)*'? 

1840  NEXT  I 

1830  IF  Tem_3  0 1  *  1  THEN  MAT  T«*(30O>  '  INITIAL  GUESS  FOR  TEMP  CASE  *  27  dtg 
1860  IF  T*»”*Ol*0  THEN  MAT  P*w*.  ,23.-  !  INITIAL  GUESS  FOR  POWER  *  .23  W»t 
1870  MAT  Le*<.001>*L* 

1880  MAT  H*»< .001 )4U» 

1890  MAT  X*<.001>«X 
1900  MAT  Y*< . 0O1 >»Y 
1910  MAT  A«=Ls.We 

1920  MAT  H**CHtO  1  ASSUME  ALL  CERAMIC  MAKE  CORRECTIONS  AS  NEEDED  IN  C 

1930  Bd 1 *Bd 1  * . 00 1 

1940  Bdh*8dM*.0Qi 

1950  Ar»g*Bd  1  *Bdh-'Nr  eg 

1960  Hr *BohrNyr 

1970  Lr-Bdl-'Nvr 

1980  Thick  b*Thi ck_b*. 001 

1990  Al*Al*lE-6 

2000  RETURN  !  END  OF  DATABASE 

2010  ! 

2020  C»I0*:GOSUB  Error- 

2030  C*1c0:'  ON  ERROR  GO  TO  CALCOE 

2040  P out  Ot  *N*.  .g*H*  ii'jsW.  iog»0 


INCHES 
TO  rr. n, 


.DIP  4 


'  ASSUME  ALL  CERAMIC  MAKE  CORRECTIONS  AS  NEEDED  IN  Ckl 


!  END  OF  DATABASE 
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2030  FOR  I«1  TO  Nreg 

2060  IF  Caielt  I .  II  =  "  1  “  THEM  H«U.'=H*p 
2070  IF  Ityp*<I>=0  THEM  2120 
2030  Poutot  *Pout  o»  +Fo>j<  I  '• 

2030  Ueavg=W*4vg*' We<  I  OOl  <-  Nreg  i  RVG  WIDTH*  INCLOSING  PINS 
2100  H«*vg*He*vg*{He-. I ’•  *Lpm'  Nreg  i  RVG  HEIGHT  INCLUDING  PINS 

2110  Navg*Nv..g»l-'Nyr  1  NUMBER  OF  ELEMENTS  IN  flu  RVG  CROSS  SECTION 

2120  NEXT  I 

2130  flai  r  aBdh*2b-N  i‘<g»He  a><g 

2140  Pen  ift*2*Bdh+2-*NivgrHe  avg+irUb 

2150  Fr*t*5*<Fenr*-2-»Bdh-2*Cb'  .Perm,  t  ROUGHNESS  FACTOR 

2160  DM*4-»flai  r.-  Per  i  m 
2170  Vjir«Fiir.  rtiir 
2130  Re*Vair*Dh  C n 

2130  IF  ReMOOO  THEN  Hb.  =.  32 3*K  ai  r.' Dh*Pe-- .  8  i  TURBULENT  AT  1303  DUE 

2203  !  i  TO  MANY  TRIPS  OF  COMPS 

2210  IF  Re<  *  1 003  THEN  Hbt'*5. 40*K  ii  r^Fr/Dh  i  LRMINFIR  FOR  1  G:..03 

2220  1 

2230  R  1  _hor  *Lr  ••  <  K I *AES  v  A 1 
2240  R 1  _i.'tr*Hr  *  •'  K  1  '■RES  •  R  1  '•  • 

2250  Rb  Hor  *Lr  •  '  1  b*Hr  ♦Tl\  i  c k  b> 

2260  Rb*  _ver  *Hr  •' >.  k, b*Lr  *Th  i  c  k  b‘ 

2270  RETURN  ~  >  END  OF  CRLC0 

2280  i 

2230  Cal c 1 e : GOSUB  Error 

23O0  Calcl:  1  THIS  SECTION  COMPUTES  SOME  OF  THE  NON-CHANG I NG  PARAMETERS 
2310  ON  ERROR  GOTO  Calcle 
2320  FOR  1*1  TO  Nr eg 

2330  1  BELOW  HEPE  WE  CALCULATE  THE  CONVECTIVE  LOSSES  FOP  ERCH  BORPD  REGION 
2340  IF  X<I),Dh;-10  THEN  2330  !  OUTSIDE  OF  THE  DEVELOPMENT  REGION 

2350  Gz»ReePr*Dh.  I  ' 

2360  Hb*. 664*k 11 r  •  1. l*Dh  '-SOR'G:+'  1*7. 3*S0P<Pr • Gz 3 VrPr >*Fr  >  Ed  13.43  KNUT2EN 

S.  KRTZ  LRMI'lflP  IN  DEVELOPMENT  REGION 

2370  IF  l/Gzv.05  THEN  2330 

2330  GOTO  2400 

2330  Hb*Hbf 

2400  flregt ot =2-Ar e g-He •  I  • 

2410  Rb_conu I1  a  1  <  Hb  .fir  e  gt  oT  ' 

2420  !  NOW  WE  GET  TO  THE  ELEMENTS  ON  THE  BORFD 

2430  IF  I type*.  I >*0  THEN  2640  '  IF  NO  ELEMENT  THEN  SET  VERY  HIGH  PES2STRNCS 

2440  IF  1 1  ype  axil  THEN  24S0 

2450  D1s=.  1  *D i i 

2460  L  p  i  r,  * .  1  *  L  p  i  n 

2470  Rap  m*.  1  *Rsp  i  n 

2480  Rpi  nj_>:  ord=Lp  in  <  Up  i  n-fl  .pi  r-Npi  n  (  1 1  ype  ■'!)'> 

24  30  Rgap_c  ond*D i  %  ' ‘  t:  ai  r  *Re  ■  I  .  ' 

2500  IF  ltyp*.:l,'li  THEN  2540 
2510  D i ** 10*D i i 
2520  Lpin*10*Lpin 
2530  flip i n= 10*Rip i n 

2540  Re_e  ond  <  I  >  *Pp  i  ni_c  or.d*Pg  ap  cord  '  <\  Ppi  m  tonj*Fg  ip  cord' 

2550  Rb  1  ai  *fle  <  I  '  »2*Le  r  I  '<  -  He  *fl i  p  i  n»Np  i  n >  1 1  "pe  •  I  1 

2560  Hebla»=Hb 

2570  IF  I < 6  THEN  Hb'  I  '*Hb 

2530  Reb  1  a? *  1  ' ■' Heb  1  ii  -Rb  l  ii  '• 

2530  H«»t  ig*.  57-k  ii  r  »Pi — .  4*30P  v  V  ii  r We '  1 1  ♦Gnu  i  1 
2600  fl*tag*2*We'.  I  •»««<  I  > 

2610  Re  it  ag*  1  s  <  He*  t  igefli  \  ag  > 
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2620  R«  conv>.  I  >  *R«b  1  ai*Reat  ag< xPeb  t  a=.*Ri  1 1  »g  > 

2630  GOTO  2660 

2640  R*_corw< I )*1E30  *  •  • 

2650  R*  cohd< I >*1E30 

2660  !  BELOW  HERE  CALCULATE  THE  BOARD  CONDUCT  I  XT  RESISTANCE 
2670  J-I  '  HERE  IS  BOTTOM  OF  PEGION 
2680  IF  I »Nxr ' =Nreg  THEN  2720 
2690  IF  NUJ,t)*8  THEN  2~40 

2700  R 1  <  J , I ) »R !  v*r  ••  N 1  <  J ,  I )  *Rb  uer  -  <  R  t  _ver 'N 1  <  J  ,  I >  *Rb  «-'«r> 

2710  GOTO  2750 

2720  R I < J , I >  *Rb_ver '2E-40 

2730  GOTO  2750 

2740  R  I  <  J ,  I  )=Rb_'.'«r 

2750  J*2  <  HERE  IS  RIGHT  SIDE  OF  REGION 

2760  IF  I  MOD  Nxr»0  THEN  2400 
2770  IF  N 1  <  J , I >  =0  THEN  2320 

2780  R1 < J, I >»R1  hor -Ml  < J, I >*Rb  hor^'PI  hor/H 1 < J , I ) +Rb  hor) 

2790  GOTO  2930 

2800  R1  <J,  I)«Pb_horx-2E-40 

2810  GOTO  2830 

2820  R 1  <  J ,  I  >*R:b  hor 

2830  J*3  '  HERE  IS  THE  TOP  OF  THE  REGION 

2840  IF  I < *Nxr  THEN  2330 
2850  IF  HHJ,t>«0  THEN  2900 

2860  Rlt’J,  I>»ftl  wNliJJHKs  "*r-  .Pl_v*r’Nl  <  },  :  >  *Rb  v*r  > 

2870  GOTO  2910 

2830  R1  <  J,  I)«Rb  »«r--2E-40 

2890  GOTO  2910 

2900  RKJ,  I)*Pb  "«r 

2910  J»4  i  HERE  IS  THE  LEFT  SIDE  OF  THE  REGION 
2920  IF  <  I  - 1  >  MOD  Nu-  =  0  THEN  2960 
2930  IF  N1  <3,0*0  THEN  2930 

2940  R1<J,I)*P!  hor  x  N 1  <  J ,  I  >  *Pb  hor  <R1  hor-'Nl  <  J,  I  >  *Rb  hor' 

2950  GOTO  3000  “ 

2960  R1 <J, I>*Rb  hor- 2E-40 
2970  GOTO  30OO 
2980  R1<J, I )=Rb_hor 
2990  GOTO  3010 

3000  Rb  eenv(I>*lr<Hb4Ar«gtot > 

3010  NEXT  I 
3020  ! 

3030  RETURN  !  END  OF  CAL 

3040  > 

3050  C«1 c  t»! GOSUB  Error 

3060  C«Ie"«: !  THIS  SECTION  DETERMINES  SURFACE  TEMP  FROM  JUNCTION  TEMP  AND  Rj_.: 
3070  ON  ERROR  GOTO  Calc  t* 

3080  IF  T*m_so 1  *  1  THEN  RETURN 

3090  FOR  1*1  TO  Nr *g 

3100  T*< I )*T j < I >-Pow< I > *R j  c  n 

3110  IF  T*<IXTair<I>4l,  1  THEN  Te  <  n*T*i  r  <  I  j  *1 .  1 

3120  NEXT  I 

3130  RETURN  'END  OF  Calc 

3140  C«le2C GOSUB  Error 

3150  C*lc2:  i  THIS  SECTION  CONTAINS  THOSE  PARAMETERS  WHICH  CHANGE  WITH  TEMPS 
3160  ON  ERROR  GOTO  Calc2« 

3170  DISP  "WORKING  ON  CHANGING  PARAMETERS" 

3180  FOR  I*!  TO  Nr*g 

3190  IF  ltyp*<IK,0  THEN  3230 
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3200  Rtop_r<l >*1£50 
3210  Rgap  rad=lE50 
3220  GOTO- 3250 

3230  Pgap_r  ad*<Epi*»Epsb-Ep»**£pib  >  ' <4*Sn3*Ep*e-*Epsb*A*  ■  I  '<*Te<  U  '3  > 

3240  Rt  op  r  <  I  '  =  1-Epsb>'  <Epsb*Ar  eg  >  ♦  10'  Ar*;*'.  1-Eps*  >  1 '.ft*  ■  I )  *Eps*  >  >'  <4*8  i  g*T*  C I  > 
-3) 

3250  Rtot*  b<I)=R;ap  rad»P*  cond<  I  >/ ^  R  ;  ap_r  ad  ♦  R  *  cor  d<I‘> 

3260  R*U<n»R*_  corwv  I  bvl.>  MM  MUST  BE  SUM  FOR  ALGEEPAIC  PEPSOHS 

3270  NEXT  I 

3280  RETURN  !  END  OF  CALC2 

3280  ! 

3300  Cal c_ai re: COSUE  Error 

3310  Calc” ai r : <  THIS  SECTION  FINDS  THE  PIP  TEMPS  FOR  EACH  REGION  BASED  ON  POWER 
3320  ON  ERROR  GOTO  Calc_air* 

3330  CFr  *Cp  a»F  a  i  r -*Pho 

3340  Poutot=0 

3350  FOR  1  =  1  TO  Nr*.; 

3360  Poutot  *Powtot  *-Pow;  I  ,> 

3370  Tai  r  <  I  >*T  ai  r*.  5*Pou<  I  >  *Nvr-  C*'r 

3330  IF  <1-1 >  MOD  Nxr  =  0  THEN  3420 

3390  FOR  K*  I  - 1  TO  I - < I - 1 >  MOD  Hxr  STEP  -1 

3400  Tai  r  <  I »Tai  r  ^  I  )  ♦Pou  <  K  >+Nvr  -  CFr 

3410  NEXT  K 

3420  NEXT  I 

3430  Tout  *Tai  r*Pout ot 'C»"r 

3440  RETURN  !  END  OF  CPLC_PIR 

3450  ! 

3460  Solve* 2  COSUB  Error 

3470  Solv*2  '  THIS  SECTION  SOLVES  THE  PROBLEM 
3480  ON  ERROR  GOTO  Solve* 

3490  DISP  “WORKING  ON  SETTING  UP  THE  MPTPIX" 

3500  Itt-Ittfl 

3510  BEEP 

3520  WRIT  300 

3530  BEEP 

3548  GOSUB  Set  up 

3550  GOSUB  Elu- 

3560  Err »0 

3570  Tmax=0 

3580  Pm  in* 100O 

3590  IF  T*m_so 1  *  1  THEN  3730 

3600  FOR  1*1  TO  Nre; 

3610  Pn*w*<  T*<  I  )  -B  <  I  )  >  rRr  ot  *_b  <ti*<T*<I)-Tair<I>)  /R*_c  onv<  I )  ♦  ( T*  <  I  > -  B  <  I  )  R t 

op_r(I) 

3620  IF  Pn*u<0  THEN  Pn*w*Pow< I )/2 

3630  IF  Pn*u<Pmin  THEN  Pm i n=r n*w 

3640  IF  RBS<  <Pow<  I  i-Pn*w>.'Pow<  I  >  >  >Err  THEN  Err*PBS <  < Pou <  I  > -Pneu >  ' Pou <  I )  > 

3650  Pou<I)=Pn*u 

3660  NEXT  I 

3670  Tma>*500 

3680  MAT  Tb=E 

3690  IF  Err<Errroa>:.  100  THEN  3S40 

3700  COSUB  Calc  t 

3710  GOSUB  Cal c-ai r 

3720  GOTO  3920 

3730  FOR  1*1  TO  Nr*g 

3740  Tn*w*<Pow<  I  i*Fiot *  b«  l >»R*  corw •'  I  >+B<  I  i *R«  «onu<  I)  +Tai r <  I  >*Rt  o*  *  b<  I  >  > 
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3730 

3760 

3770 

3780 

3780 

3800 

3810 

3820 

3830 

3840 

3830 

3860 

3870 

3838 

3890 

3900 

3918 

3920 

3930 

3940 

3950 

3960 

3970 

3980 

3990 

4000 

I) 

4010 

4020 

4030 

4040 

4050 

4068 

4070 

4080 

4090 

4100 

4110 

4120 

4130 

4140 

,I>  + 

4130 

4160 

4170 

4130 

4190 

4200 

4210 

4220 

4230 

4240 

4258 

4260 

4270 

4280 

4290 

4300 


IF  A8S< T« < I > -Tn«w >  ' Err  THEN  Err * AB 3 > T« <  I ) -Tn»w > 

T*<  I ) ■Tn«« 

Tj<I>*T»<I>»Pou<.I>*Rj_c<I) 

IF  Tj<I)>Tmax  THEN  Tt»ax»Tj(I> 

NEXT  I 
Pnii  n»0 
MAT  Tb*B 
MAT  A»ZER 

IF  Err  .'Errruax  THEN  3920 

DISP 

FOR  C«1  TO  4 
BEEP 
WAIT  90 
BEEP 

WAIT  150 
NEXT  C 
RETURN 

COSUB  T«mp_print 

IF  <  1 1 1  >30>  OR  <Err> 200)  OR  <Tout>400>  THEN  GOTO  Bomb 
GOSUB  Cal c 2 
GOTO  Solo* 

j 

S*i  up: I  THIS  SECTION  SETS  UP  THE  Nr*g  SIMUL  EQUATIONS  I 
F0R~I»1  TO  Nr*g 

IF  T«m_iO  I  *0  THEN  B  1  1 1  *T«  <  I > xPt ot  e_b <  I  >  +  T  a t  r <  I  > .'Rb_c on"f 
IF  T*m_iol®t  THEN  B\I>*<Pow<I>*R4_conv<I>  +  Tair<I>.'''Rel*< 

L«dg««R«dg«  =  T»dg*!*B'fdg«*l 
IF  <1-1  >  MOD  Nxr»0  THEN  L*dg««2 
IF  I  MOD  Hxr  »0  THEM  R*dg«»2 
IF  I < >Nxr  THEN  T«dg*«2 
IF  l+Nxr'«Nr*g  THEN  B*dg**2 
IF  <1-1  >  MOD  N<r*0  THEN  4o?0 
A<I,I-l)*-lxRl<4,I) 

IF  I  MOD  Hxr =0  THEN  4100 
R<I, I+l>»-lrR| <2, I) 

IF  I<«Nxr  THEN  4120 
A< I, I-Nxr >«-lxRl > 3, I> 

IF  l+Nxr;»Nr«g  THEN  4140 
A<  I ,  I+Nxr  >*-l-/R)  <  l ,  I) 

A<  I ,  I  >*<B*dg«*OrRi  <  i ,  I  )*.’R«dg*»  1  >xRi  <£,  I  ■>♦<  T*dg«* l  )'  P i  < 
sRtole  b  < I > ♦ 1 • Rb  ionvf I >-<T*m  aol«l>*R«  corwv  I>y-<R*1«<I> 
NEXT  I~ 

RETURN 

I 

Elu:  !  THIS  SECTION  PERFOPMS  A  LU  DECOMPOSITION  OF  THE 

DISP  "WORKING  ON  ITERATION  NUMBER  ";Itt 

Nml=Nr«g-l 

FOR  K* l  TO  Hml 
.  Kpt«K*l 

FOR  I»Kpl  TO  Nr«g 
G*-A< I ,  K)xA<K,  IO 
A<I,K)-G 

FOR  J»Kp 1  TO  Nr*g 
A< l , J)»A< I , J>+G*A(K, J) 

NEXT  J 
NEXT  I 
NEXT  K 


<e> 


!  END  OF  SOLVE 
S  MATRIX  FORM 
I> 

I  >  +  Tai r < I > xRb  cor,u( 


3,  I  >  +  < Ledge*  1  > *'R  1  '* 
rRior  «_b'.  I )  > 

!  END  OF  SETJJP 

'A 'MATRIX 
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4313  So  1 v«r :  !  THIS  SECTION  SOLVES  THE  NEW  MATRIX  AND  PLACES  THE  ANSWERS 

4323  Np  1  -Nr*eg*  1  '  INTO  MATRIX  S  TO  BE  PASSED  BACK  TO  SOLVE 

4333  FOR  K*1  TO  N»1 

4343  Kpl-K+1 

4350  FOR  I *Kp 1  TO  Nreg 

4360  B<I>*B(I>*A<I,K>*B''K) 

4373  NEXT  I 

4333  NEXT  K 

4390  B<Nreg'>  *B(Hreg  >  Hr  eg.  Hr  eg"1 

4433  FOR  K«2  TO  Nreg 

4410  I-Npl-K 

4420  J1*I»1 

4430  FOR  J*J1  TO  Nreg 

4440  l,J>*B‘»J> 

4450  NEXT  J 

4450  B< I )»BC I >- A< 1,1) 

4470  NEXT  K 

4430  RETURN  !  END  OF  SOLVER 

4490  T «mp_pr i nt :  !  THIS  SECTION  USED  FOR  INTERMEDIATE  OUTPUT 
4503  EXIT  GRAPHICS 

4510  IF  <T*i»prt*l>  AND  >Ans=PI.'  THEN  PRINTER  IS  3 

4520  PRINT  SPA< !3> , “DATA  FOR  “ ; P i ct I  61 *; “  # " ; 1 1 1 ; " I TTERAT I  ON " 

4530  PRINT  L!N<2> 

4540  FIXED  2 

4550  PRINT  "PEG  4  Tg.>*e  'DecC*1  Tiunc  <C»C)  Treq  <DegC>  Pou 

(U)  R  i-c  <UsC>  " 

4550  FOR  1*1  TO  Nreg 

4573  PRINT  l;TAB<12),T«<I)-273;TAB(2S),Tj<I)-273;TAB(4t>JTb<I>-273iTAB(53:i, 

Pou< I > { TAB<52> , R  j  e(:l> 

4563  NEXT  I 

4593  PRINT  LIIK2) 

4600  PRINT  "BOARD  THICKNESS* 1 000*Th i eV_b; " mm  AND  CONDUCTIVITY  »“;Kb;“W**. 


4610  PRINT 

4623  GOTO  4633  !  PRINT  “  I  RB  CONV  RE  CONV  TE  Hb“ 

4630  FOR  1*1  TO  5 

4643  PRINT  USING  4663;  I ,  Rb  conu(I),R«  conuv  I  > ,  Te<  I  >-273 ,  Hb<  I) 

4650  NEXT  I 

4660  IMAGE  DD,4X,4<4D.4D,4X> 

4670  PRINT 
4680  FIXED  4 

4690  PRINT  "COOLING  AIP  FLOW  OF  "  ;  F*i  r  J  "M “•?  per  SEC  VEL-“  ;  V »i  r ;  “M  Sec  "  ,  “  <  ” 
V*ir*39'3; "FT/S> " , L IN  < 1 > 

4703  PRINT  "INLET  AIR  TEMP- " I Ti j r-273; “  deg  C  OUTLET  AIR  TEMP* Tout -273; “ 4* 
g  C“ 

4713  PRINT  LIN<2) , “LARGEST  DIFFERENCE  BETWEEN  ITTERATIONS  »" ; Err; " «**->*” 

4720  PRINT  H _ _ 

_ “  ,  L I N  <  2  > 

4730  PRINTER  IS  16 

4740  STANDARD 

4750  RETURN 

4760  Debug:  An**»"N" !  TEMP  DEBUG  FOR  RESISTANCES 
4770  RETURN  ! 

4730  INPUT  "DO  YOU  WISH  TO  HAVE  A  LIST  OF  ALL  THE  RESISTANCES  PRINTED  'NO  or  YES 
>?“, An*# 

4790  IF  UPCICAn**Cl,  11'<»"N"  THEM  RETURN 
4800  PRINTER  IS  3 
4810  FIXED  5 


<9> 


125 


THSPML  .  .  THEFHAL  ANALYSIS  FOP  ThEPMELEX 


482®  PRINT  "  PEG*  RE  CONS  RE  CONV  PTQTE  F  RTOP  R  RB 

CONV 

4838  POP  Z«1  TO  Nr  #g 

4840  !  PRINT  TABt2> ,  I,  TAB' 4' ,R*_.:ond<  I  > ,  TAB<4);R*_conu<  I  > ,  TAB<4> ,  R' ot«_b<  I ) !  TAB' 
3>;Rtop_r ( l >; TAB* 4 < ; R*l« t I >  ~  *  ~ 

4838  PRINT  TPBf?>,I;P*  •:  ond<  I  > :  R#  eonu  <  I  > ;  Rio* «  b*  I  > ;  P*  op_r  <  I  > ;  Rb  corHM'I) 

4880  NEXT  I 
4878  PRINTER  IS  18 
4388  STANDARD 
4898  RETURN 

4988  Units: !  THIS  SECTION  CONVERTS  FROM  METER  TO  #,m 

4918  Bdl *10OQ-Bdl 1  HEPE  CORRECT  UNITS  FOR  USE  IN  GRAPHICS  AND  TO  REWORK  ANALYSIS 

492®  Bdh»1808»Bah 

4938  MAT  X»<10O0»*X 

4948  MAT  Y«<IO08.**Y 

4938  MAT  L**<.  1000>*L* 

4968  MAT  W***.  1888 :  *W« 

4978  Thick  b*l880*Thick  b 
4980  Al«AlTlE8 

4998  RETURN  !  END  OF  Urn*.  * 

3808  ! 

3818  Output*:  GOSUB  Error 

3828  Output:!  THIS  SECTION  OUTPUTS  TO  GRAPHICS  ON  A  BLANK  BOARD 
3838  ON  ERROR  GOTO  Output* 

3848  PLOTTER  IS  “GRAPHICS" 

3838  GRAPHICS 
3868  MSCALE  0.19 
3078  CSI2E  2 
5838  LORG  3 
3890  MOVE  13, 130 

3100  LABEL  “ - nr  flow - >  " 

3118  CSIZE  3 
5120  Bdh-BdhrSc » 

3138  Bd1«8dlr$ci 
3148  IF  Sc*»l  THEN  3220 
3138  LORG  6 
3160  LDIR  P I  -'2 
3170  MOVE  173,79 

3188  IF  Sc*>l  THEN  label  “THIS  PICTURE  IS  1  -"tVALKSc*'’?."  SIZE" 

3190  IF  Sc*<l  THEN  LABEL  “THIS  PICTURE  IS  2X  SIZE” 

3200  LORG  3 
5218  LDIR  0 

3220  MOVE  100-LEN* "OUTPUT  DATA  FOR  "? Pi c t 1 bl * ■ '2 , 1 33 
3230  LABEL  USING  »K “OUTPUT  DATA  FOR  ” S.P i  c 1 1  b  1 * 

3240  MOVE  8,0 
3230  DRAM  O.Bdh 
3260  DRAM  Bdl.Bdh 
5270  DRAM  Bdl ,8 
3230  DRAM  0,8 
3290  LINE  TYPE  3 

3300  Lr«BdlrNxr  !  LR  »  LENGTH  OF  EACH  REGION 

3310  Hr ■Bdh-'Nyr  i  HR  ■  HEIGHT  OF  EACH  REGION 

3328  FOR  I«1  TO  Nxr-1 

3330  MOVE  I*Lr, 0 

3348  DRAW  I*Lr.Bdh 

3350  NEXT  I 

3360  FOR  I«1  TO  Nyr-l 

3370  MOVE  0, I«Hr 
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3380  DRAW  Bo  1 , I. Hr 

3398  NEXT  I 

3400  LINE  TYPE  1 

3410  LORG  3 

3420  Nr *0 

3430  CSIZE  2.4 

3440  FOR  I»1  TO  Nr*g 

3450  MOVE  X<  I.*-.  33*Lr, Y(I '♦. 33*Hr 

3430  LABEL  USING  "K “ ; VAL*> I > 

3470  MOVE  XU'*.  3*Lr,Y<I>*.23*Hr 

3480  LABEL  USING  “K " ; Tvp«f‘ I t yp«» I > > 

3490  IF  1 1  yp*  >  I »3  THEN  3570 

5300  IF  T  j  I  >  -273  .  93*  <  Tm  »„-27J  >  THEN  LABEL  USING  33 1 01  T  )  <  I> -273 

3310  IF  T j  <  I  >-273  ■  *.  93»>  Tin**-273 .■  THEN  LABEL  USING  3600;  T j  (  !  ■  -273 

3320  IF  Pow<  I  *1 . 05»Pi»i  n  THEN  LABEL  USING  36  30 1  Pow<  I 

3330  IF  Pout  I  >  M  .  03*P«i  i  n  ThEn  LABEL  USING  3620;Pow'I' 


3340 

LABEL  USING 

5610; T*> I 

'-273 

3350 

GOTO  3390 

3360 

I 

3370 

LABEL  USING 

3380 

LABEL  USING 

3610; Tb< 1 >-273 

3390 

NEXT  I 

3600 

IMAGE  "**", DDD.l 

C" 

3610 

IMAGE  DDD.D.  "  C 

3620 

IMAGE  D.DDD,"  W‘ 

3630 

IMAGE  D.DDD.  “  W“ 

3640 

FIXED  4 

3630 

DUMP  GRAPHICS 

3660 

PRINTER  IS  0 

3670 

PRINT  SPA >20'," 

3680 

PRINT  $PA<.  20  > ,  “ 

3690 

PRINT  SPA (20 ■ , " 

type 

EMPTY 

3700 

PRINT  SPA', 20  > ,  " 

T  junc 

or 

3710 

PRINT  SPA (.20  > ,  " 

POW 

Tbo*rd 

3720 

PRINT  SPA(20> , “ 

Tc  is* 

3730 

PRINT  SPA<20  > , “ 

3740 

PRINT  LIN(2« 

FLOW  PATE 


3730  PRINT  SPA',  14  _ 

3760  PRINT  USING  5300 ; " COOL 

d*g  C" ; Tout-273; Hd*g  C" 


VELOCITY 


Tin 


T  out 


Ing  A  IP:  " ;  F»  i  r ;  '  n  3-S«c' 


■»ir;  “M  S«c";T*:r-27' 


3770  STANOAPD 

5780  IF  Tern  sol*0  THEN  PRINT  USING  3S10; "LARGEST  CHANGE  IN  POWER  BETWEEN  ITTEPAT 
IONS  4“ ; It  t - 1 ; “  AND  *";i*t;u  *  ”;Err 

3790  IF  T*fo  S0l*l  THEN  PRINT  USING  5310; "LARGEST  CHANGE  IN  TEMP  BETWEEN  I TTEPAT I 
ONS  *";Itt-T;“  AND  » " ; 1 1 1 ; “  »  ";Err 

5800  IMAGE  UAI2X,.4D,7A,2X,DD.4D,5A,2X,3D.D,3A.2X,3D.D,5A 
3810  IMAGE  -'/’43A,  DD,  SA,  DD,  A,  DD.  4D 

3820  !  MORE  OF  THE  CIRCUIT  DESCRIPTION  CAN  BE  PRESENTED  HERE 

3830  PRINT  LINt 1  > , “CIRCUIT  BOARD  DESCRIPTION  IS  STORED  UNDER  " } CHR* U 32> 5 Nw*« #; 
CHRf < 128> 

3840  PRINT  " _ 


_ ",LIN<2  > 

3850  PRINTER  IS  16 
3860  EXIT  GRAPHICS' 

3870  RETURN  !  END  OF  OUTPUT 

3830  > 

3890  Wh*t  nou*:GOSUB  Error 

3900  Wh*t~ now: '  THIS  SECTION  PRESENTS  THE  VARIOUS  OPTIONS  AVAILABLE  AND  DIRECTS 
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3910  !  PROGRAM  CONTROL  AS  NEEDED 

5920  ON  ERROR  GOTO  Uhat_now* 

3930  S**"WHAT  NOW 
3940  COSUB  Pagehead 

5930  PRINT  TABt  15>.  "You  ha"e  completed  th*  th(r«iil  anal'<*i*  of  :  “ 

3960  PRINT  TAB i 37~LENvPict lot* >. 2)J CHft*C 129) ; Pic t 1 b 1  * ; CHR* v 1 23 > 

3970  PRINT  TAB( I  7  ■ , " t h*  options  ivti Ubl*  are  )is**d  b*low:“ 

3980  PRINT  Llfun.TAB'  3  • .  ”  1 .  CHANGE  COOLING  AIR  PARAMETERS  AND  RE-ANALY2E  "ICHR 

•  <132>;n*«.#*;chr*i  us / ;  “ 

5990  PRINT  HN<l',TAB'3>,“2.  SENSITIVITY  ANALYSIS  FOR  CHANGES  IN  COOLING  AIR  PA 
RAMETEPS  OF  • ; CHR*( 132> ; Nam**; CHP*< 128> 5 “ . “ 

6000  PRINT  LIN< 1 ' . TAB<5> , “3.  MAKE  CHANGES  TO  BOARD  DESCRIPTION  IN  FILE  NAME  •' ; C 
hr*< l 32 ) ;  n  *(»**;  c  hr  i  •  US';“.“ 

6010  PRINT  LIN< 1 > , TAB1 .5) . “4.  RETRIEVE  A  NEU  FOARD  DESCRIPTION  FROM  MASS  STORAGE 


6020  PRINT  LINU ) , TA2C3) . "3.  INPUT  A  NEW  FOARD  DESCRIPTION  FROM  THE  KEYBOARD. “ 
6030  PRINT  LIN< l ) , TAB<5> , “6.  TERMINATE  SESSION" 

6040  Map*Bomb=0 
6050  An**»‘'l" 

6060  INPUT  "YOUR  CHOICE  FROM  ABOVE  <  1 , 2,  3 , 4 , 5 . 6 '■  ' "  ,  An** 

6070  IF  An*»«"BACK_UP“  THEN  RETURN 

6080  An**!NT(VAL<  Am*  >  i 

6090  IF  (An*  >0)  AND  'A  m:*i)  THEN  6120 

6100  GOSUB  Errin 

6110  GOTO  Uhat_now 

6120  ON  An*  GOSUB  Redo,  Sen*  i  ,  CM  an;* ,  Get  new.Kev  new, Termi nat e 
6130  IF  Ar.s»l  THEN  RETURN 
6140  GOTO  Uh»t  now 

6150  Redo:  RETURN  !  THIS  WILL  ALLOW  RESTART  OF  THIS  PROGRAM  WITH  SAME  BOAPD 

6160  ' 

6170  S*n*i « : GOSUB  Error 

6180  S«n* i 1 i  THIS  SECTION  PRODUCES  PLOTS  OF  OUTPUT  VS  COOLING  AIR  PARAMETERS 
6190  ON  ERROR  GOTO  Sensi* 

6200  $*■" SENS  I T I VTY  ANALYSIS" 

6210  GOSUB  Page  head 

6220  PRINT  “  Thi*  **ction  allows  wow  to  in««stig*tt  the  effect*  of  variations 
in  th *  air  flow  rat*. 

6230  IF  T#m_»ot*l  THEN  PRINT  "Plot*  of  Maximum  Junction  Temperature  v*  Flow  Rat* 
of  th*  air  are  produced" 

6240  IF  T*m_*ol*0  THEN  PRINT  “Plot*  of  Minumum  Power  vs  Flow  rat*  of  th*  air  ar* 
produced. " 

6230  PRINT  "  You  specify  th*  maximum  flow  rat*  p«r  board  (MA3x**c>  and  fiv*  * 

•  par at*  “ 

6260  PRINT  "analyses  ar*  penformed  and  th*  result*  p1o*r*d.  NOTE:  selecting  a  m 
ax i mum  flow" 

6270  PRINT  "that  i*  evenly  divisabl*  by  fiu*  (5,10,30)  will  r**ult  in  b«tt«r  loo 
king  ax«*. " ,L IN( 1 > 

6280  PRINT  "Th«*»  plot*  may  b*  produced  on  either  th*  icneen  (with  hard  copy  via 
K*y3>  or  " 

6290  PRINT  “on  a  peripheral  plotter  *uch  a*  the  Hp  9372A.  In  addition  a  printed 

tabul ar" 

6300  PRINT  "output  of  the  re*ult»  at  each  of  the  airflow  rate*  mav  be  produced." 

6310  PRINT 

6320  An»f *"NULL" 

6330  INPUT  "WHAT  IS  THE  UPPER  LIMIT  ON  THE  AIR  FLOW  RATE  FOR  THE  SENSITIVITY  ANA 
LYSIS'?" ,  An** 

6340  IF  An*** "BACK  UP"  THEN  What  now 
6330  IF  An»**"NULL~  THEN  6320 
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(369  An*»A8S ( VAL < flni I >  > 

(370  X»ax«An* 

6380  X»in»0 

6390  X»t«p«  (  Xmax-Xm  in)'? 

6400  Yain>8 
64to  nuit«iooooe 

6420  IF  X»ax>«.0Ol  THEN  Mult. « 10000 
6430  IF  XmaxD-.Ol  THEM  HultMOOO 
6440  IF  Xnax>«.l  THEN  Mult *100 

6430  An**«“N“ 

6460  INPUT  “DO  YOU  WISH  TO  HAVE  TABULAR  RESULTS  FOR  EACH  OF  THE  AIR  FLOWS'’1. N  or 
Y>",Ans* 

6470  IF  AnsP»“BACK_UP“  THEN  S*r,it 
6480  T«mprt»0 

6490  IF  UPCf  (An**  ■«“ Y“  THEN  T*«.prt»l 

6300  COSUB  Databai* 

6310  Map«l 

6320  IF  Tim_iol«l  THEM  £330 

6530  FOR  Fair»Xmax  TO  Xat*p  STEP  -X»t«p 

6340  COTO  6360 

6350  FOR  F*if'».;jt«p  TO  Xmax  STEP  X»t«p 

6360  C03UB  CalcO 

6570  GOSUB  Calc l 

6380  COSUB  Cal  e  t 

6390  COSUB  Cal c2 

6600  COSUB  Calc  air 

6610  GOSUB  Solve 

6620  IF  T*m_jo 1  *  1  THEN  Y»T» ax-273 

6630  IF  Tern  jol*0  THEN  V»P»in 

6640  IF  T tigprt*  1  THEN  PRINTER  IS  0 

6630  IF  T*mprt»l  THEN  COSUB  Temp  print 

6660  IF  Map-1  THEN  GOSUB  P lot 

6670  IF  Ani*»"BACK'JJP"  THEN  6430 

6680  An»*Itt -Map-0 

6690  GRAPHICS 

6700  PEN  1 

6710  MOVE  Fair.Y 

6720  LORG  3 

6730  LABEL  USING  "K‘; 

6740  PEN  0 
6750  NEXT  Fair 
6760  EXIT  GRAPHICS 
6770  DUMP  GRAPHICS 
6780  PRINTER  IS  0 
6790  PRINT  LIN(2> 

6800  PRINTER  IS  16 
6810  GOSUB  Units 

6820  GOTO  What  now  I  END  OF  SENS  I 

6830  ! 

6340  Chang*:!  THIS  SECTION  LORDS  BORPDS  TO  RLLCW  CHANCES  TO  THE  CIRCUIT  PESCPIPT 

6830  Map*! 

6360  PRINT  PAGE 

6870  DISP  "WORKING  LOADING  BOARDS" 

6880  LOAD  "BOARDS", 1 

6890  G«t  n*w! !  THIS  SECTION  EXPLAINS  THE  TWO  WAYS  TO  GET  A  NEW  BOARD  DESCRIPTION 
6900  SB-UNPUT  OF  MEW  BOARD  DESCRIPTION" 

6910  GOSUB  Pagehead 

6920  PRINT  "  Th«  new  board  deacriptien  may  b*  read  in  Prom  mast  **orag«  in  t w 
o  different" 
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<930  PRINT  “program*.  ThERML  • * ha  program  in  cort  now'  will  not  allow  vi»u»l 
chack i  ng  or* 

<940  PRINT  "mod  i  f  i  c  at  i  on  of  Otfcmptiw*  dill  for  <h»  circui*  Board.  Th#  Oat*  i* 
raad  in* 

<930  PRINT  “at  -'Our  dirict  ion  Out  only  guaition*  iOn;*rnmj  t  h«  tnvironmnt  a:ta 
nor  to  th«” 

<960  PRINT  “circuit  board  a r#  ajkad.  Th*  itcond  ***hod  of  input  fro*  aaii  ttora 
g*  involtl* 

<970  PRINT  “th*  program  BOARDS  uhicn  allow*  Both  d  *»  a  chack ing  'hrough  graphic 

a  and  * 

<980  PRINT  “opport  un  i  t  i  •»  to  modify  »  h*  diicnpi  i"t  data." 

<990  PRINT 

7000  PRINT  LIN.  I  > ,  TAB' 3/ ,  ”  l .  READ  9  NEW  BOAR  5  DESCRIPTION  JS  I NG  “hEPML  .  nc  : 
orrac  t i on*  > “ 

7010  PRINT  LIN'  1  ‘ . TAB ■ 3  ■ ,  *2.  PESO  ft  NEW  BOARD  DcSCRIP'IIN  .  SihG  BOARDS.  *1  ’  0 
us  e orrac  t i on*  •  1 

7020  PRINT  L I H I  2  ' ,  “  REMEMBER  ThE  ThERMEuE.'.  S  STEM  MUST  EE  IN  ThE  DEF  AUL  T  MASS  ST 

ORftCE  DEVICE" 

7030  ftn*a«“l" 

7040  INPUT  "YOU*  CHOICE  FROM  ABC-'E  •  1 , 2  > ,  flna* 

7030  IF  An**»"BACK_uP"  THEN  Hh*t_nc,w 
7060  (tni»VSLiPnili 

7070  IF  (ftna^Oi  ftND  >  An*  3  Th£n  7100 

7000  GOSUB  Err  in 

7090  GOTO  Gat  naw 

7100  IF  ftni*2~TH£N  7130 

7110  M*p*l 

7120  RETURN 

7130  I 

7140  Map-2 

7130  DISP  “WOPklhG  LOADING  BOARDS" 

7160  LOAD  “BOARD  5”,  l 
7170  1 

7180  Kay  naul  '  THIS  SECTION  LOADS  BOARD?  WITH  The  INTENT  TO  INPUT  -.£*  E C * R I  DESC 

7190  Map -3 

7200  DISP  “WORKING  LOADING  BOARDS" 

7210  LOAD  “BOARDS". 1 
7220  ' 

7230  Tarmtnata:  '  THIS  SECTION  TERMINATES  ThE  SESSION 

7240  GCLEAR 

7230  DISP  "WORKING  LOADING  STANDARD  KEY  DEFF I N I T I ONS " 

7260  LOAD  KEY  "STDk.EY" 

7270  PRINT  LIN' 20 SPA'  1? •, "NORMAL  TERMINATION" 

7280  PRINT  LIN'D), SPA'.  13  < .  ”  THANK  YOU 

7290  DISP 

7300  END  'END  OF  TERMINATE 

7310  ! 

7320  Pagahaadl '  THIS  ROUTINE  PLACES  THE  PACE  HEADINGS  FOR  THE  INSTRUCTIONS 
7330  PRINT  PACE,  TAB  34-LENi  i*  •  '2  ' ,  “  1  CrtP*  >.  1 32  -■  i  $*  i  CHR  I  ■  1 2  3  '  J  "  --".LIN'D; 

7340  RETURN 
7330  1 

7360  Err i n 1 !  THIS  SECTION  ALERTS  THE  USER  TO  AN  ATTEMPT  TO  INPUT  BAD  DATA 

7370  BEEP 

7380  DISP  "**♦»**  INPUT  OUT  OF  RANGE . TRY  AGAIN" 

7390  WAIT  1300 
7400  BEER 

7410  RETURN  '  END  OF  ERR  In 

7420  i 
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7430  Error: '  THIS  SECTION  IS  THE  ERROR  TRAPPING  ROUTINE  POP  THE  ENTIRE  PPOGPAM 

7440  i  PROGRAM  FLOW  RESUMES  AT  THE  TOR  OF  THE  SECTION  IN  WHICH  THE  ERROR 

7430  1  OCCURED  AFTER  THE  USER  PRESSES  CONT 

7460  EXIT  GRAPHICS 

7470  PRINTER  IS  16 

7480  PRINT  PAGE 

7490  BEEP 

7300  WAIT  008 

7310  BEEP 

7320  IP  EPRN-36  THEN  £rr_r,im« 

7330  PRINT  LIN' 20i , SPA' 10 > . "ERROR  NUMBER “ ; EARN ; "HAS  OCUPRED  IN  L INE “ J ERRL J “ .  PR 
ESS  CONT  WHEN  PEAOV “ 

7340  DISP 
7330  BEEP 
7360  PAUSE 
7370  RETURN 
7380  ! 

7390  Err  THIS  SECTION  FOR  IMPROPER  FILE  NAME 

7600  PRINTER  IS  16 
7610  PRINT  PAGE 

7620  M»LI44»"  DEFAULT  MASS  STORAGE" 

7630  FOR  I «2  TO  LEW'  N»i»*4  • 

7640  IF  N*ra«*C I , IJ«“ : "  then  76  ro 

7630  NEXT  I 

7660  GOTO  7700 

7670  H»u»**N»iu«* C  1 1 

7680  CAT  must 

7690  GOTO  7710 

7700  CAT 

7710  PRINT  L I N  v  2  ’ ,  "  F  i  1 «  iUf»*  •• ;  CHP*  t  1  S2 ' 1  N»m«  *C  1 .  I  - 11 J  CHR*  (  1 23  ■  i  "  il  NOT  on  ";CH 
R*( I32>;Mtu»4:CHR*< 123 • :  “  ">i»H  »M*f.  Ipdlii'5 . " 

7720  PRINT  LltH  1 >, "CHECK  OVER  THE  DIRECTORY  ABO'-E  FOP  CORRECT  NAME  OR  SPELLING.. 


7730  DISP  “PRESS  CONT  WHEN  READY” 

7740  PAUSE 
7730  RETURN 

7760  Plot*:GOSUB  Error 

7770  Plot:  '  PLOTTING  ROUTINE  FOP  THE  AXES 
7700  ON  ERROR  GOTO  Pto’« 

7790  plotter  is  “graphics' 

7800  IF  T«ni_sol»0  THEN  7S30 
7810  Yit«o*l0 
7820  FOR  1*0  TO  7 

7830  IF  Tm»t-273;30»I-23  THEN  Vjt«p«l3*I*5 
7840  NEXT  I 

7850  PH1bl»«,,Tjwo«  Air  Flow- 
7860  Y 1  bl  I*  “  Jwn.:  T«n.p  •  d«j  C'“ 

7370  GOTO  7948 
7880  Y»t*p«. I 
7890  FOR  1*1  TO  10 

7900  IF  P* i n  > . 5» I  THEN  Yj t «p*. 1  * < I *1  ' 

7910  NEXT  I 

7920  P  I  t  I  b  I  *»  '  Pm  i  r.  v  J  Air  Flow" 

7938  Y 1  b  1 4* ” M i r  Pow«r  Comp  rWi?ii'" 

7940  Y»»-.*3»  ("jt  «p 

7930  GPAPHICS 

7960  LOCATE  15,110.10.93 

7970  SCALE  X»i«,;:*»  ,  .  Mu  n,  r»*.i 


1 15> 


•  END  OF  ERROR 


131 


"■■TT.-are.-. 


n 


THERML  ..  THERMAL.  ANALYSIS  FOR  THEP.MELE;'. 


7980  AXES  Xu  *p,  Vi  t  tp ,  Xnii  n,  V®  i  n 
7990  CS1ZE  3 
8000  LDIR  0 
8010  LORG  5 

9020  FOR  Xpoi*n»m  TO  Xrmx  STEP  Xjttp 
9030  MOVE  Xpoi  ,  Vim  n-.  1  •Yit  «p 
9040  LABEL  USING  "K “ ; Xpoi »Mu It 
90S0  NEXT  Xpos 

8000  HOVE  2. 5-*Xit  *p, 4*Y*t  ep 

8070  LABEL  USING  "  K  “  :  *  A  i  r -F 1  ou  -  Bo  *r  d  <  "S.VAL*  <  1  "Mu  1 t  >  &  “  M--3/S«C>“ 

8080  LORG  3 

8090  FOR  Ypoi»Vii>n  TO  Umax  STEP  Yst*p 
8100  MOVE  N*i  n-.  Ypoi 

8110  LABEL  USING  “k“:7po* 

8120  NEXT  Ypos 
8130  LINE  TYPE  1 
8140  LORG  4 
8130  LDIR  PI -'2 

8160  MOVE  4*X*t *p, 2. 3*Yi t «p 
8170  LABEL  USING  "K'JYlbl* 

9180  MOVE  Xm i n*2. S»Xit *p , 3. 1 *Yl* «p 
8190  CSIZE  4 
9200  LDIR  0 

9210  LABEL  USING  "k  "  :  P  i  c  t  1  b  1  * 

8220  LABEL  USING  "K.";P!tlbll 

8230  RETURN  !  END  OF  PLOT 

8240  ! 

8230  Bomb!'  THIS  SECTION  DELIVERS  MESSAGE  TO  THE  USER  OF  FAILURE  TO  CONVERGE 

8260  WA I T  2080 
8270  BEEP 

8280  PRINT  PAGE. LIfK  10/,  "UNABLE  TO  ACHIEVE  CONVERGENCE  DUE  TO  NUMERICAL  INSTABIl 
ITIES” 

8290  PRINT  LINO’’.  "I  SUGGEST  A  CHANGE  IN  E I THER  THE  INSTALLATION  PARAMETERS  OR 
8300  PRINT  LIN- IS "THE  CIRCUIT  BOARD  PARAMETERS  _ " 

8310  PPINT  L IN'  2  ' . “ THERMELEX  PREDICT?  TEMPERATURES  MUCH  MUCH  BETTER  THAN  ROWER  L 
EVELS" 

8320  PRINT  L IN 1 1 ) , "TRY  SPECIFYING  THE  COMPONENT  POWER  lEVEL? L I M •  3  ' 

8330  DI3P  "Prjjj  CONT  when  to  rtturn  to  option  lilt" 

8340  BEEF- 
8330  PAUSE 
8360  DISP 
9370  Bomb*! 

8380  RETURN  !  END  OF  BOMB 


<  16) 
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